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INTRODUCTION 

Th«  NAVAI RDEVCEN  (Naval  Air  Development  Canter)  is  a  large  user  of  vehicle  end  propul¬ 
sion  design  and  performance  computer  codes  and  is  constantly  seeking  to  improve  their  efficiency 
and  flexibility.  A  significant  number  of  these  codes  are  dependent  on  the  use  of  input  tabular  data 
sets.  Quite  frequently  these  data  sett  ere  initially  received  in  a  format  incompatible  with  direct  use 
in  these  codes,  resulting  in  a  time  consuming,  error  prone  transformation  task.  To  circumvent  this 
problem,  development  of  a  rapid  data  transformation  code  was  undertaken.  The  impetus  for  this 
effort  was  the  need  to  prepare  for  a  planned  substantial  increase  in  analyses  of  various  aircraft  and 
propulsion  systems. 

This  present  report  describes  a  code  based  on  the  use  of  an  interactive  graphics  system  that 
permits  direct  creation  of  digital  tabular  data  sets  from  material  in  graph  form,  utilizing  a  Tek- 
tronics  4015  graphics  terminal,  digitizer  tablet  and  hardcopy  unit  In  addition  the  user  may  edit 
and  correct  these  data  directly  from  the  digitizer  tablet  or  from  the  graphics  display  screen  using 
cursor  cross  hairs  and  tablet  commands.  This  code,  entitled  TIGS  (Table  Plot  Interactive  Graphics 
System)  was  developed  using  the  NAVAI  RDEVCEN  CDC  6600/Cyber  175  computer  facilities. 

A  user's  guide  for  this  code  is  shown  in  Appendix  A.  A  Fortran  listing  of  the  TIGS  code  is  shown 
in  Appendix  B. 

\  DISCUSSION 

CODE  DEVELOPMENT^ 

The  TIGS  code  was  developed  as  a  general  purpose  computer  tool  to  permit  the  user  to 
prepare  and  edit  tabular  data  sets,  using  interactive  graphics,  prior  to  use  in  other  computer 
codes.  The  tabular  data  sfttmay  represent  a  functional  relationship  between  a  dependent  variable 
and  several  independent  variables,  an  example  of  which  is  shown  in  Figure  1.  In  this  figure  FXYZ 
is  the  dependent  variable  and  is  a  function  of  the  independent  variables  X,  Y,  and  Z.  The  basic 
output  of  the  code  is  graphical  plots  on  a  Tektronies  4015  type  of  storage  tube  graphics  terminal 
along  with  a  computer  file  consisting  of  the  digital  tabular  data  representation  of  that  plot  These 
digital  tabular  data  are  suitable  for  use  in  nearly  all  of  the  vehicle  and  propulsion  design  computer 
codes  used  within  the  Ahcraft  andCrew  Systems  Technology  Directorate  at  the  NAVAIR- 
DEVCEN.  Further  details  Ofthe  tabular  date  output  format  are  distuned  in  the  user's  guide 
Appendix  A  and  in  reference  (a).  While  the  TIGS  code  is  a  stand-alone  Interactive  system,  the 
graphical  SKeeutfere  portionof  the  cade  may  be  used  In  conju action  with  gny  other  user  written 
code.  In  effodt  tills  flexibility  permits  the  user  to  interactively  prepare  end  edit  data  which  Hi 
turn  is  passed  to  the  user's  code  Experience  in  using  TIGS  has  shown  that  the  time  required  to 
prepare  data  for  use  in  the  vehicle  and  propulsion  design  codes  has  been  reduced  by  a  factor  of  10. 

HARDWARE  REQUIREMENTS 

The  TIGS  code  is  specieMsed  Hi  that  it  was  written  for  a  COC  6600/Cyber  175  computer 
system  using  a  1200  baud  line  under  the  CDC  telex  time  sharing  system.  Graphical  implementa¬ 
tions  era  provided  by  a  Tektronies  model  4016  terminal  with  the  enhanced  graphics  option.  A 
farm  Tpfrtrrmin  tahft  ffwv  ha  upfevri  hi  th>  ctoltfutioo  procaii  atono  wHh  i  modal  4631  hard- 
copy  unit.  The  TIGS  system  could  be  modified  for  use  with  other  graphics  systems.  Figure  2 
shows  a  typical  TIGS  hardcopy  plot  . 
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SOFTWARE  OVERVIEW 

Th#  TIGS  code  is  comprised  of  seven  besic  modules  using  the  standard  utility  Tektronics  re¬ 
lease  3.2  software  compiled  under  Fortran  IV.  TIGS  uses  the  Cyber  segmentation  loader  requiring 
about  40000  octal  memory  locations  to  execute.  The  segmentation  setup  consists  of  seven  modules 
described  below.  The  information  flow  between  these  modules  is  represented  by  Figure  3. 

TtGS  is  the  main  executive  module  that  controls  the  input  and  output  and  interplays  with 
the  graphics  executive. 

TABR  contains  the  code  to  input  and  output  the  digital  data  in  the  required  format 

TIGPFR  is  the  graphics  executive  module.  This  module  controls  the  graphical  input  and  per¬ 
mits  the  user  to  interact  with  the  graphical  screen  and  digital  tablet  controlling  data  point  values, 
plot  sizes,  curve  options,  titles  and  scaling. 

The  TIGPPR  module  performs  these  functions  through  connections  to  other  segmentation 
modules  GETVAL,  LOPTIM,  LABEL,  and  DRAWIT. 

GETVAL  is  used  to  input  data  points  either  from  the  graphics  screen  or  the  digitizer  tablet 

LOPTIM  implements  the  axes  scaling  and  grid  options  selected  by  the  user. 

LABEL  uses  the  data  values  to  compute  the  axes  tic  marks  and  other  data  related  to  fitting 
the  plot  on  the  graphical  screen. 

ORAWIT  processes  the  scaling,  axes,  along  wlih  other  plot  date  and  generates  the  commands 
that  draw  the  vectors  on  the  graphic  screen. 

There  are  two  basic  operating  modes  in  the  graphics  executive:  creation  and  correction.  In 
the  creation  mods  a  digital  data  file  is  crested  using  the  cross  heir  cursor  either  directly  from  ths 
Tektronics  screen  or  from  the  digitizer  tablet  Commands  from  the  screen  are  implemwned  by 
first  positioning  the  cross  hairs  and  then  keying  a  single  letter  indicating  the  command.  Commands 
from  the  digitizer  tablet  are  implemented  in  two  steps:  first  the  command  code  tetter  is  keyed 
using  a  tablet  command  menu;  second,  the  coordinate  position  going  with  die  command  is  keyed 
tnt  osiirto  potiuon.  rrom  inmr  tdp  tenwo  or  tn#  tiDvfx,  to  tn# 

command  and  coordinate  position.  The  commands  received  by  the  graphics  SRcautive  ora  generally 
used  in  three  different  ways: 

f)  add,  delete  or  change  a  coordinate  point 

cnangp  •  grapnics  tKfcuttvt  tvmcn  Tfom  orr  to  on  or  on  to  on 

3)  control  the  size  and  view  of  the  graphical  plot 


litnt  jpiltilrtffftthiMiittiftiwrt  ttortiw  thi  (tytftif  tiMit  A  inort 

difilitirt  rBumtoa  of  thm  fionwimidi  it  found  to  thftuif'iduBi  AobmcMk  A. 


USER  EXPERIENCE 

The  TIGS  system  has  proved  to  bo  a  very  powerhil,  flaxXe  tooL  Task  cost  reductions  of  10 
to  1  hurt  bun  iiomu  to  dan  uiinQ  TlQt  to  ncpoafp  tiiulp  tonuti  far  oihp  4*mi^ 


FIGURE  3.  TIGS  SEGMENTATION  MODULES 
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A.1  INPUT  CONSIDERATIONS 

The  TIGS  code  will  permit  e  direct  creation  of  a  data  file  from  screen  and  or  tablet  commands. 
In  addition,  existing  table  data,  input  as  file  TAPE1,  may  be  edited  and  corrected.  In  either  case  a 
new  table  data  source  with  corrections  is  produced  as  an  output  on  the  TAPE7  file.  The  format  of 
files  TAPE1  and  TAPE7  is  the  same.  In  the  next  section  this  format  is  illustrated. 

A.2  TABLE  DATA  FORMAT 

The  table  data  may  represent  a  dependent  (output)  parameter  as  a  function  of  1,2,  or  3 
independent  (input)  parameters.  The  basic  method  for  inputting  these  tables  is  described  in 
reference  (a).  However,  for  the  sake  of  completeness,  the  user's  guide  portion  of  reference  (a)  has 
been  extracted  and  duplicated  herein  and  includes  those  modifications  introduced  since  its  initial 
publication.  This  information  is  shown  in  Table  A-1. 

A.3  EXAMPLES 

Card  input  data  set-ups  for  three  different  examples  are  illustrated  as  follows: 

Example  1  (Drag  coefficient  as  a  function  of  Mach  number) 

The  dependent  variable  is  drag  coefficient  and  the  independent  variable  is  Mach  number. 

Figure  A-1  illustrates  the  graphical  relationship.  This  is  a  one  parameter  table  look-up  so  the 
other  two  parameters  are  dummies.  Table  A-1  shows  the  card  set-up  for  this  example.  The 
EOT  (end  of  table)  parameter  label  terminates  the  data  for  this  table. 

Example  2  (Drag  coefficient  as  a  function  of  Mach  number  and  lift  coefficient) 

The  dependent  variable  is  drag  coefficient  and  the  independent  variables  are  Mach  number 
and  lift  coefficient,  illustrated  in  Figure  A-2.  This  is  a  two  parameter  table  look-up  so  that 
the  third  parameter  is  a  dummy.  Table  A-2  shows  the  card  set-up.  In  Table  A-2  the  last 
Mach  parameter  data  repeats  the  previous  Mach  parameter  data.  In  this  situation,  the  last 
Mach  parameter  data  card  can  be  omitted.  As  a  general  rule,  whenever  the  data  on  the  X 
parameter  axis  as  shown  in  Figure  A-1 ,  is  repeated,  then  the  X  parameter  data  card  need 
not  be  repeated. 

Example  3  (Drag  coefficient  as  a  function  of  Mach  number,  lift  coefficient  and  CG  location) 
The  dependent  variable  is  drag  coefficient  and  independent  variables  are  Mach  number,  lift 
coefficient,  and  CG  location,  illustrated  in  Figure  A-3.  Table  A-3  shows  the  card  set-up  for 
this  three  parameter  example.  Note  that  the  input  card  set-up  is  symmetrical  in  that  each  CL 
parameter  data  card  begins  data  for  each  CG  parameter. 

A.4  LIMITATIONS 

The  TIGS  system  as  presently  written  is  limited  to  a  maximum  of  30  curves  per  plot,  150 
points  per  curve,  or  a  total  of  300  points  per  plot  For  example,  a  plot  with  10  curves  could  be 
described  with  5  curves  using  40  points  per  curve,  and  the  remaining  5  curves  using  20  points  per 
curve. 

A.5  INTERACTIVE  PROMPTING 

The  TIGS  code  has  been  designed  to  prompt  the  user  in  supplying  information  in  the  correct 
format  Selection  of  the  baud  rates  compatible  with  eveilabie  transmission  lines  is  possible.  After 


A-2 
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TABLE  A-i 

• _ DATA  INPUT  INSTRUCTIONS _ 

Card  I  ~  I 

No. _ Form« 

1  Table  rtf  trance  number  of  table  look-up  function;  table  title  or  descriptive  1XJ4JA10 

information 

2  4  character  identifier  (user  selected)  used  to  identify  the  third  independent  A4,I3,3X,7F10.0 

variable.  If  table  look-up  hm2orka  independent  variables,  use  a  dummy 

identifier;  the  number  of  values  of  the  third  independent  variable  (must  be 
less  than  100.);  values  of  the  third  :.<dependent  variable  arranged  in  ascending 
order. 

2a,b,etc.  Continuation  of  third  independent  variable  array,  if  required  10X.7F10.0 

3  and  All  remaining  cards  have  the  same  format  as  card  2, 2a,  b,  etc.  The  item 

following  which  distinguishes  the  card  types  is  the  value  of  the  independent  variable. 

The  4  character  identifiers  of  each  independent  variable  must  not  be 
identical.  The  4  characters  of  each  independent  variable  card  (after  the  title 
card)  are  user  selected.  The  card  order  of  each  independent  variable  is  sig¬ 
nificant.  The  first  four  cards  with  respective  independent  variables  are  as 


follows: 

Card 

Definition 

27a,b,etc. 

third  independent  variable, 
identifier  and  values 

3 ,3a, b, etc. 

second  independent  variable, 
identifier  and  values 

4,4a,b,etc. 

first  independent  variable, 
identifier  and  values 

5,5a,b#tc. 

dependent  variable,  identifier 
and  values 

The  remaining  input  cards  use  these  same  identifier  values  as  input  above.  On 
cards  4,4a,  b,  etc.  and  5, 5a,  b,  etc.  are  the  dependent  and  first  independent 
variable  values  along  the  line  given  by  the  first  value  of  the  second  independent 
variable  and  in  the  plane  of  the  first  value  of  the  third  independent  variable. 

Cards  with  the  same  respective  identifier  value  cards  4, 4a,  b,  etc.  and  5, 5a,  b, 
etc.  are  repeated  for  different  values  of  second  independent  variable  until  all 
second  independent  variales  have  been  exhausted.  The  next  card  has  an  identi¬ 
fier  corresponds  to  the  second  independent  variable  and  new  values  of  that 
variable  for  the  plane  of  the  second  value  of  third  independent  variable.  The 
values  of  the  first  independent  variable  need  not  be  repeated  if  they  are  the 
same  along  each  line  of  constant  second  independent  variable.  In  each  instance 
where  the  values  ere  changed  a  new  card  is  required. 

Last  Table  input  termination  indicator,  EOT  Afi 

All  remaining  tablas  for  this  input  saction  follow  the  same  pattern  as  above. 

To  end  the  table  reed-in  mode,  e  blank  table  reference  number  is  Input  be¬ 
hind  the  lest  table  of  the  entire  table  set. 


A-3 
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TABLE  A- I I .  ONE  PARAMETER  CARD  INPUTS 

COLUMN  LOCATION 

123456789012345678901234567890123456789012345678901234567890 


101 

DRAG 

COEFFICIENT 

VS  MACH 

NUMBER 

z 

1 

0.0 

Y 

1 

0.0 

MACH 

4 

0.0 

0.1 

0.2 

0.3 

CD 

4 

0.010 

0.011 

0.0112 

0.0115 

EOT 
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MACH  NUMBER 


FIGURE  A-2.  TWO  FARAMETER  TABLE  LOOK  UP 
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TABLE  A-III.  TWO  PARAMETER  CARD  INPUTS 
COLUMN  LOCATION 

123456789012345678901234567890123456789012345678901234567890 


104 

DRAG 

COEFFICIENT  VS  M  AND 

CL 

Z 

1 

0.0 

CL 

3 

0.0 

0.2 

0.3 

MACH 

4 

0.0 

0.1 

0.2 

0.3 

CD 

4 

0.01 

0.02 

0.03 

0.04 

MACH 

3 

0.0 

0.15 

0.2 

CD 

3 

0.1 

0.02 

0.03 

MACH 

3 

0.0 

0.15 

0.2 

CD 

3 

0.02 

0.03 

0.04 

EOT 


A*7 


MACH 


C6«20 

CL*. 4 
CL*. 3 

CL  *.2 


FIGURE  A-3.  THREE  FARAMETSR  TASLE  LOOKUF 
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TABLE  A- IV.  THREE  PARAMETER  CARO  INPUTS 


COLUMN  LOCATION 

123456789012345678901234567890123456789012345678901234567890 


226 

CD  VS  M, 

CL,  AND 

CG 

CG 

3 

0.0 

10.0 

20.0 

CL 

3 

0.0 

0.1 

0.2 

MACH 

4 

0.0 

0.1 

0.2 

0.3 

CD 

4 

0.01 

0.01 

0.02 

0.022 

CD 

4 

0.02 

0.02 

0.03 

0.035 

MACH 

3 

0.0 

0.1 

0.3 

CD 

3 

0.03 

0.031 

0.033 

CL 

4 

0.0 

0.15 

0.20 

0.3 

MACH 

3 

0.0 

0.2 

0.3 

CD 

3 

0.011 

0.011 

0.021 

CD 

3 

0.015 

0.015 

0.026 

CD 

3 

0.020 

0.020 

0.036 

CD 

3 

0.025 

0.025 

0.041 

CL 

3 

0.2 

0.3 

0.4 

MACH 

4 

0.0 

0.2 

0.4 

0.6 

CD 

4 

0.01 

0.01 

0.015 

0.020 

MACH 

3 

0.0 

0.2 

0.3 

CD 

3 

0.011 

0.011 

0.022 

CD 

3 

0.021 

0.022 

0.032 

EOT 
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logging  into  the  host  system  and  tht  baud  rata  hat  baan  teiectad,  diffarant  prompts  will  appear 
depending  on  the  user  response  to  the  initial  interactive  query.  The  response  will  depend  on 
whether  the  user  intends  to  correct  an  existing  file  or  create  a  new  file  via  the  screen  or  tablet 
After  the  baud  rate  selection  the  next  query  to  appear  will  be: 

(a)  “IS  THIS  A  CREATION  RUN?" 

A  "Y"  response  indicates  a  TAPE1  file  is  to  be  newly  created  and  the  following  prompts  will 
appear. 

(b)  "ENTER  TABLE  TITLE  CARD 

(COLUMNS  1-5  SHOULD  BE  TABLE  REFERENCE  NUMBER)" 

The  use  should  refer  to  the  instructions  in  section  A-2  Table  A-l,  card  1. 

(c)  "ENTER  4  CHARACTERS  FOR  EACH  LABEL  FOR  Z.  Y,  X,  FXYZ 
(separated  by  commas)" 

The  user  should  refer  to  instructions  in  section  A.2  Table  A-l.  card  2. 

(d)  "ENTER  NUMBER  OF  Z  VALUES" 

The  user  should  refer  to  instructions  in  section  A.2  Table  A-l.  card  2. 

(e)  "ENTER  Z  VALUES  IN  ASCENDING  ORDER" 

The  user  should  now  enter  the  values  of  the  Z  parameter  with  blanks  or  commas  between  the  data 
pieces. 

(f)  "WANT  TO  SPECIFY  DECIMAL  PLACES  ON  TAPE2?" 

An  "N"  response  will  by  default  set  the  number  of  places  at  the  maximum  allowable.  If  the  user 
enters  a  "Y"  this  will  ba  prompt  query  (g). 

(g)  "ENTER  NUMBER  OF  DECIMAL  PLACES  FOR  Z, Y.X.FXYZ" 

The  user  should  specify  the  number  of  decimal  places  (up  to  9)  separated  by  blanks  or  commas  for 
Z.Y.X.FXYZ  parameters. 

At  Bib  point  the  following  message  will  appear: 

"NO  DATA  TO  BE  FOUND. .  .ENTER  COMMAND" 

The  user  may  now  begin  creating  the  tabular  data  set  with  either  a  "N"  (new  line)  command 
or  a  T  (tablet  operation)  command.  The  reader  is  referred  to  sections  A.6  and  A.6  for  additional 
information. 

If  the  response  to  the  initial  query  (query  (a)  above)  is  "N"  then  this  means  that  data  on  the 
TAPE1  is  to  be  uead  and  queries  (b)  thru  (a)  are  skipped. 

A.6  TABLET  INITIATION  PROCEDURE 

Tablet  commands  are  issued  uelng  a  command  menu.  The  command  menu  is  a  section  of  the 
tablet,  20  one  inch  squares  (10  columns  by  2  rom)  in  which  keying  the  coordinates  within  a 
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square  to  interpreted  at  the  indicated  command.  Figure  A-4  shows  the  positions  of  the  menu 
commands  within  the  10  by  2  inch  squares. 

Tablet  operation  begins  initially  by  attaching  the  command  menu  at  any  convenient  location 
on  the  tablet  The  menu  should  be  approximately  parallel  with  the  lower  edge  of  the  tablet  Upon 
first  entering  the  "T"  command,  the  user  enters  the  position  of  the  upper  left  corner  of  the  menu. 

The  coordinates  of  this  position  are  then  used  to  determine  the  commands.  Next,  the  user  attaches 
the  graph  that  to  to  be  used  at  a  convenient  tablet  location.  Squaring  the  graph  to  not  necessary 
since  any  angular  correction  required  is  performed  in  TIGS.  The  user  then  may  select  any  conven¬ 
ient  orthogonal  axes  and  enters  the  following  requested  information: 

a)  the  coordinate  position  of  the  crossing  point  of  the  orthogonal  axes,  and  the  coordinate 
values  X  and  FXYZ  respectively  at  the  crossing  point 

b)  the  coordinate  position  of  any  X  axis  point  and  its  value,  (usually  this  coordinate  posi¬ 
tion  is  the  maximum  axis  length) 

After  these  entries  have  been  made  the  "NO  DATA  FOUNO  TO  PLOT"  message  will  appear. 
At  this  time  the  user  may  issue  commands  from  the  tablet  menu. 

A.  7  TIGS  INTERACTIVE  COMMANDS 

Commands  from  the  screen  involve  only  positioning  the  cross  hairs  and  keying  the  appropriate 
command.  Commands  from  the  tablet  involve  first  selecting  the  command  from  the  menu  and 
then  indicating  the  coordinate  position.  Once  a  tablet  command  has  been  set  it  remains  set  until 
changed.  The  user  is  free  to  change  to  and  from  tablet  and  screen  command  modes.  The  following 
commands  are  available: 

"A"-  add  point  after.  The  user  positions  the  cross  hairs  and  keys  the  "A"  command  (or 
indicates  the  tablet  command  and  position).  The  system  will  respond  by  drawing 
the  symbol  at  the  new  point  (Non.  See  the  "C"  command  for  further  discussion.) 

"B"-  add  point  before.  This  command  is  exactly  like  the  "A"  command  except  that  the 
point  to  added  before  the  pointer  position. 

"C"-  position  the  pointer  to  the  array  location  that  the  user  wishes  to  add  a  new  point. 

The  next  command  following  the  "C"  command  to  add  a  point  may  be  an  "A"  to 
add  after  or  a  "B"  to  add  before  the  pointer  position.  In  addition  an  "M"  command 
may  be  used  to  move  to  a  new  location  the  point  indicated  by  the  position  pointer. 

A  "V"  command  may  also  bo  used.  It  should  be  noted  that  the  pointer  position  after 
each  added  point  becomes  the  position  of  the  added  point  Possible  valid  commands 
would  be  "CAABBAVVVAA"  permitting  the  user  to  continuously  add  new  points 
vary  rapidly.  Any  other  command  drops  the  pointer  position,  which  must  be  restored 
by  another  "C"  command  to  add  new  points. 

"D"-  delete  the  point  closest  to  the  cross  hairs  or  pen  position. 

"E"-  end  or  terminate  this  plot  and  return  to  TIGS  for  next  plot  if  any. 

"F"-  format  or  change  type  of  curve  drawn  for  each  line  as  follows: 
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ABODE  GHINP 

add  add  position  delete  end  grid  halt  initial  new  plot 
after  before  pointer  point  plot  switch  tablet  tablet  line  data 

R  S  V  V 

restore  show  value  window 
window  value  input  data 


FIGURE  Ar4.  TABLET  COMMAND  MENU 
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ITIP-  switch  determining  type  of  curve  drawn  (ITIP*2,  default)  ITIP 
can  have  the  following  values:  (Note:  a  negative  value  will  have  the 
same  meaning  except  no  symbols  are  drawn.) 

0  indicates  symbols  only,  no  curve  drawn 

1  indicates  linear  fit 

2  indicates  smooth  spline  like  fit  with  respect  to  x  axis 

3  same  as  ITIP“2  except  with  respect  to  y  axis 

4  indicates  data  is  multivalued  and  the  fit  is  with  respect  to  arc  length 
along  curve 

5  indicates  data  is  multivalued  and  forms  a  closed  figure;  the  fit  is  with 
respect  to  arc  length  and  joined  at  the  ends. 

NOTE:  if  data  is  not  in  ascending  order  when  ITIP  *  2  or  ITIP  *  3,  then  curve  fit 
will  default  to  ITIP  -  4;  DEFAULT  format  is  ITIP  -  2. 

"G"-  IGRID  switch-  turns  grid  from  on  to  off  or  off  to  on. 

"H"-  halt  tablet  and  returns  control  to  screen.  This  only  applies  to  tablet  modes. 

"I"-  initialize  tablet  starting  with  graph  coordinate  locations.  This  only  applies  to 
tablet  mode. 

"M"-  move  the  point  indicated  by  the  pointer  position  to  the  new  coordinates  indicated 
by  the  cross  hairs. 

"N"-  begin  a  new  curve  at  point  indicated.  Whenever  this  command  is  issued,  the  user 
will  also  enter  the  new  curve  value.  The  pointer  position  becomes  the  new  point 
permitting  commands  such  as  "NAAMAAAABBBVAB". 

"P"-  re-plot  data  with  scale  as  shown,  see  Note 

"R"-  rescale  data  to  the  largest  size  and  re-pfot  see  Note 

"S"-  show  the  current  coordinate  values  at  the  position  Indicated. 

"V"-  values  input;  same  as  "A"  or  "B”  command  except  the  actual  X  and  F  coordinate 
values  art  input 

"W"-  window  the  plot  to  fit  within  the  rectangle  Indicated  by  the  diagonal  between  two 

QoorQNiCCS  powpont  (iww  pOfUQ  in  nmj* 

Note:  The  commands  "F",  "P"  and  *'R"  have  a  dual  meaning.  If  the  vertical  croas  hair 
is  to  the  left  of  the  vortical  plot  axis  then: 


"f"  indicates  id  chenoa  the  ITIP  of  the  autua  huMpoiod  h*r  die  pnsftlnn  of  iha  horliootal 
cross  hairs.  "P"  indicates  activate  TIGS  to  plot  the  curve  indtoaesd  by  the  position  of  the 
horizontal  cross  hairs.  This  action  is  cumulative  In  diet  one  or  more  of  many  curves  may  be 
Indicated  in  this  manner.  "R”  is  used  to  deactivate  this  apodal  mode  and  thus  restore  all  curves  to 
okvttfoft  ctstufc 
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A.8  EXAMPLE  INTERACTIVE  SESSION 

In  this  example  the  TIGS  system  is  used  to  crests  a  plot  The  figures  in  this  example  are 
actual  copies  of  what  the  user  would  see  on  the  Tektronix  screen.  In  these  figures  a '?"  followed 
by  data  indicates  that  these  data  were  the  user's  response  to  the  indicated  query.  In  the  following 
discussion  numbers  enclosed  by  circles  rjfor  to  corresponding  numbers  on  a  figure  pointing  to  a 
fejrture  under  discussion.  In  figure  A*5  ©  is  the  command  used  to  begin  execution  of  TIGS. 

©  is  the  user  response  to  the  quwv  as  to  transmission  line  rate.  ©  indicates  that  a  creation 
is  requested  and  results  in  queries  ©  thru  ©  .  ©  is  the  main  title  on  the  plot  preceded  by 
the  table  reference  number.  The  table  reference  number  should  be  a  5  digit  integer  number.  The 
title  can  be  up  to  Clines.  The  user  may  indicate  a  new  line  by  leaving  three  consecutive  blanks 
between  words.  ©  is  the  response  to  the  query  requesting  four  variable  names  for  the  respective 
data.  Note  that  each  variable  name  must  be  4  characters  in  length;  blanks  count  as  characters.  © 
is  the  response  to  the  number  of  Z  variataes  requested.  Each  Z  value  represents  a  single  plane.  © 
is  the  response  to  input  each  Z  value.  ©  is  the  response  to  the  decimal  place  query  related  to  the 
TAPE7  file.  This  file  is  an  output  file  containing  all  of  the  data  generated  during  this  session.  Each 
prompt,  as  shown,  indicates  that  the  data  on  TAPE7  will  contain  the  maximum  decimal  places  that 
will  fit  with  each  space.  Some  caution  is  necessary  if  the  user  specifies  the  number  of  decimal 
places  for  each  parameter;  precision  could  be  lost  if  a  low  number  of  decimal  places  is  initially 
selected.  A  good  technique  is  to  examine  the  TAPE7  file  with  the  maximum  decimal  places  speci¬ 
fied  first  and  then  re-enter  TIGS,  if  necessary,  and  specify  decimal  places  as  required. 

When  the  user  responds  to  ©  ,  figure  A-6  will  be  displayed.  The  meaning  of  figure  A-6  is 
that  a  plot  command  as  implied  and  that  data  was  not  found  to  plot  This  is  a  proper  response  since 
the  user,  through  ©  ,  on  figure  A-5,  elected  a  creation  run  and  there  is  no  data  as  yet  to  plot. 

The  user  will  notice  for  the  first  time  that  cross  hairs  also  have  appeared  on  the  screen.  (Note  these 
are  not  shown  in  figure  A-6).  The  cross  hair  is  a  prompt  signal  that  an  input  is  requested.  The  input 
is  a  single  upper  case  letter.  A  "RETURN"  is  not  required  after  typing  the  single  letter  command. 
The  single  letter  command  issued  in  this  example  was  a  "N"  indicating  a  new  line.  The  response 
to  this  command  shown  in  figure  A-7.  The  first  prompt,  ©  ,  requests  one  set  of  data  coordinates, 
X  and  FXYZ,  for  one  point.  The  purpose  of  this  is  to  scale  the  final  plot  The  response  at  Qo)  is 
a  value  assigned  to  this  line  (this  one  set  of  coordinates  is  the  beginning  of  a  potential  curve). 

After  Mitering  the  number  one  for  this  query  as  noted  by  (jo)  ,  the  screen  will  appear  as 
shgwn  in  figure  A-8.  The  "Y"  shown  on  the  left  top  of  this  figure  is  the  4  character  label  entered  in 
©  figure  A-5.  The  "Ajnd  number  under  the  "Y"  is  the  symbol  for  the  first  line  and  the  line 
value  assigned  to  it  as,  flffl  in  figure  7.  The  "A"  in  the  center  of  the  plot  at  (0,0)  is  the  first  point 
(and  only  point)  of  line  aT  The  pointer  positioned  message  indicates  that  the  reference  point  from 
which  to  add  points  has  been  identified.  This  occurred  automatically  since  only  one  point  at  this 
time  is  in  the  plot,  the  first  point  All  of  the  other  4  character  labels,  including  the  main  plot  label, 
are  also  shown.  The  value  of  the  plot  plane  (Z  value)  is  zero  and  is  shown  at  the  fop  right 

In  the  next  steps  the  user  has  moved  the  cross  hairs  and  "keyed"  the  "A"  characters  indicating 
"add  point  after".  The  "add  point  after"  in  this  context  means  that  the  data  point  storage  of  the 
new  point  is  after  the  point  indicated  by  pointer  position.  The  curves  are  always  drawn  in  the  order 
towards  the  "after"  point.  After  each  point  is  added  the  pointer  position  becomes  the  position  of 
the  added  point  Figure  A*9  shows  the  addition  of  added  four  points  as  they  would  appear  on  the 
screen.  Figure  A-10  is  a  replot  of  the  de^  resulting  from  the  user  keying  a  "P".  This  command 
simply  plots  a  curve  through  the  date  potato  shown. 

Figure  Art  1 1s  a  radio  and  replot  resulting  from  an  "R"  command.  The  plot  axes  have  been 
rescaled  to  permit  the  targest  plot  of  the  date  potato  that  will  fit  within  the  screen. 
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In  figure  A-1 2  the  cursor  was  first  positioned  at  approximate  co-ordinate  locations  of  .1 5  and 
.16  and  a  "C"  command  issued.  The  "C"  indicates  to  identify  the  closest  point  to  the  intersection 
of  the  cross  hairs  as  pointer  position.  This  command  also  resulted  in  the  message  stating  "pointer 
positioned"  at  the  top  left.  The  four  points  shown  on  figure  12  were  then  added  by  the  user  moving 
the  cursor  and  "Keying"  the  "A"  command.  In  figure  A-13  a  "P”  command  was  issued  first  and 
then  die  cross  hairs  were  at  the  position  indicated  by  the  "B"  symbol  and  the  "N"  command  was 
keyed.  This  resulted  in  the  "input  line  value"  query  shown  in  the  top  left  of  figure  A-13.  In  figure 
A- 14  the  query  response  is  shown  and  the  user  has  inputted  more  points  by  just  moving  the  cursor 
and  using  the  "A"  command. 

In  figure  A-1 5  the  user  has  replotted  the  data  with  a  "P"  command  and  then  the  cursor  was 
positioned  near  the  end  "B"  point  at  Xa.14  and  a  "C"  command  was  keyed.  The  next  command 
sent  by  the  user  was  a  "V",  to  input  an  exact  value.  This  prompted  the  query  "Input  X,Y"  to 
appear.  The  last  query  "A  or  B  mode?"  simply  request  that  the  user  identify  where  in  the  data 
storage  is  the  new  data  point  stored,  before  the  pointer  or  after  the  pointer. 

Figure  A-16  is  a  final  plot  of  the  data  showing  the  new  point  At  this  point  the  user  keyed  an 
"E"  command  and  "ended"  the  execution.  In  figure  A-1 7,  the  output  file  created  during  this 
example  is  listed  using  the  CEO  text  editor,  showing  all  the  data  points. 
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CTIGS  TIGS0002 

PROGRAM  TIGS(INPUTs101 , OUTPUT, TAPEIslOI ,TAPE7s101 ,TAPE5=INPUT)  TIGS0003 
C  ##*»****»##«»»««»#«*##»»«»»•«««»**»•  TIGS0004 

C***»  TIGS0005 

C*«*»  TIGS  TPLOT  INTERACTICE  GRAPHICS  SYSTEM  TIGS0006 

C»»*«  TIGS0007 

C»»*»  M  CADDY  JAN  30  78  TIGS0008 

DIMENSION  LT(7),XV(30),NPTS(30),X(300),Y(300)fZ(30)fA(99)  TIGS0009 

DATA  NPLOT/O/  TIGS0010 

DATA  NT/8/  TIGS0011 

DATA  ITIP,IGRID/2,1  /  TIGS0012 

DATA  NPTS,XV/30*0,30*0./  TIGS0013 

DATA  IEND/IOHEOT  /  TIGS0014 

10  FORMAT(A5,7A10)  TIGS0015 

REWIND  1  TIGS0016 

REWIND  7  TIGS0017 

PRINT  20  TIGS0018 

20  FORMATS  TIGS  VER  2.0  8/2/78  *, 

1  /*  IF  THIS  IS  A  CREATION  RUN  ENTER  Y»)  TIGS0019 

READ  30, IC  TIGS0020 

30  FORMAT(IRI)  TIGS0021 

IC=IC-30B  TIGS0022 

IF(IC.EQ.I)  GO  TO  40  TIGS0023 

C**»»  *  TIGS0024 

C**»*  FILE  IS  NOT  BEING  CREATED  READ  IT  FRCM  TAPE1  TIGS0025 

C**»*  TIGS0026 

31  READ  (1,10)  LNO,LT  TIGS0027 

IFCLNO.EQ. 10H  )  GO  TO  251 

C*»*»  TIGS0028 

Ca»*»*  CALL  IN  Z  VALUES  TIGS0029 

C**»*  TIGS0030 

CALL  TABR(LZ,NZ,Z,1)  TIGS0031 

C**»*  TIGS0032 

C*»«  READ  IN  Y.X.FXYZ  DATA  FOR  NON  CREATION  RUN  TIGS0033 

C»*«  TIGS0034 

CALL  TABR(LY,NY,A,1)  TIGS0035 

CALL  TABR(LX, N,X, 1 )  TIGS0036 

CALL  TABRCLF, N,Y, 1 )  TIGS0037 

GO  TO  100  TIGS0038 

40  PRINT  50  TIGS0039 

50  FORMAT(*  ENTER  TABLE  TITLE  CARD*/ ,  TIGS0040 

1  •  (COLUMNS  1-5  SHOULD  BE  THE  TABLE  REFERENCE  NUMBER)*)  TIGS0041 

READ  10,LN0,LT  TIGS0042 

C**«*  TIGS0043 

C**«*  READ  TABLE  NUMBER  AND  TITLE  TIGS0044 

C**»*  TIGS0045 

PRINT  60  TIGS0046 

60  FORMAT(*  ENTER  4  CHARACTERS  FOR  EACH  LABa  FOR  Z,Y,X,FXYY*/  TIGS0047 
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1  •  (SEPARATED  BY  COMMAS)*) 

C»«« 

C***»  READ  TITLES  FOR  EACH  VARIABLE  4  CHARACTERS  LONG 

C»*»* 

READ  70,LZ,LY,LX,LF 
70  F0RMAT(4(A4,1X)) 

C**»* 

C»***  GET  NUMBER  OF  Z  VARIABLES  AND  VALUES 

C**»* 

PRINT  80, LZ 

80  FORMATC*  ENTER  NUMBER  OF  *,A4,»  VARIABLES -  FREE  FORM*) 

CALL  GETINO  ,Z) 

NZ=Z( 1 ) 

PRINT  90, LZ 

90  FORMAT(*  ENTER  *,A4,»  VALUES  , ASCENDING  ORDER-FREE  FORM*) 
CALL  GETIN(NZ,Z) 

C***» 

C**»*  WRITE  TO  TAPE7  TITLE  CARD  AND  TABLE  NUMBER 

C««»* 

100  WRITE(7, 10)  LNO,LT 
PRINT  110,LZ,LY,LX,LF 

110  FORMAT(*  ENTER  NUMBER  OF  DECIMAL  PLACES  FOR  *,4(A4,1X) 

1  ,*  FREE  FORM*) 

£«*»• 

C****  GET  NUMBER  OF  DECIMAL  PLACES  FOR  EACH  VARIABLE 

C***» 

CALL  GETIN(4,XV) 

LZDP=XV(1) 

LYDP=XV(2) 

LXDP=XV(3) 

LFDP=XV(4) 

C##»# 

C«***  WRITE  TO  TAPE7  THE  Z  VALUES  ETC... 

C»*«* 

CALL  TF0RM(1,LZ,NZ,Z,LZDP,7) 

C**«* 

C***«  xNIALIZE  TEK  SOFTWARE 

C»**« 

CALL  INITT(120) 

CALL  TERM(3,4096) 

CALL  CHRSIZ(4) 

DO  250  IZ=1 ,NZ 

C***« 

C***»  IF  CREATION  MODE  THEN  SET  DEFAULTS  TO  0 

C»*»* 

IF(IC.NE.I)  GO  TO  120 

NPTS(1)sO 

X(1)*0. 


TIGS0048 
TIGS0049 
TIGS0050 
TIGS0051 
TIGS0052 
TIGS0053 
TIGS0054 
TIGS0055 
TIGS0056 
TIGS0057 
TIGS0058 
TIGS0059 
TIGS0060 
nGSC06l 
TIGS0062 
TIGS0063 
TIGS0064 
TIGS0065 
TIGS0066 
TIGS0067 
nGS0068 
TIGS0069 
TIGS0070 
TIGS0071 
TIGS0072 
TIGS0073 
TIGS0074 
TIGS0075 
TIGS0076 
TIGS0077 
TIGS0078 
TIGS0079 
TIGS 0080 
TIGS0081 
nGS0082 
TIGS0083 
TIGS0084 
TIGS0085 
TIGS0086 
TIGS0087 
TIGS0088 
TIGS0089 
TIGS0090 
TIGS0091 
TIGS0092 
TIGS0093 
TIGS0094 
TIGS0095 
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Y(1 )*0. 

nGS0096 

GO  TO  210 

nGS0097 

TIGS0098 

CW«« 

NON  CREATION  MODE 

TIGS0099 

COO 

TIGS0100 

120 

CONTINUE 

TIGS0101 

K=1 

nGS0102 

c«« 

tigsoio3 

C«M« 

TRANSFER  SECOND  INDEPENDENT  VARIABLE  TO  XV  ARRAY 

TIGS0104 

c«*« 

TIGS0105 

DO  130  Js1,NY 

TIGS0106 

130 

XV(J)sACJ) 

TIGS0107 

IF(IZ.EQ.I)  GO  TO  140 

TIGS0108 

CALL  TABR(LX,N,X,1) 

TIGS0109 

CALL  TABR(LF,N,Y, 1) 

TIGS01 10 

140 

LNXsN 

TIGS01 1 1 

LNYsN 

TIGS01 12 

NPTS(1 )=N 

TIGS0113 

NPTS(2)=0 

TIGS0114 

C«M 

TIGS0115 

c««« 

READ  NEXT  SET 

TIGS0116 

c»«« 

TIGS0117 

150 

CALL  TABR(LW,N,A,1) 

TIGS0118 

c«« 

% 

TIGS0119 

c*### 

CHECK  FOR  NEXT  Z  GROUP 

TIGS0120 

COO 

TIGS0121 

IF(LW.EQ.LY)  GO  TO  210 

TIGS0122 

C**## 

TIGS0123 

c««« 

CHECK  FOR  END  OF  TABLE 

TIGS0124 

COM 

TIGS0125 

IF(LW.EQ.4HE0T  )  GO  TO  210 

nGS0126 

CO*# 

TIGS0127 

Coo 

CHECK  FOR  NEXT  X  DATA 

nGS0128 

COM 

T1GS0129 

IF(LW.NE.LX)  GO  TO  170 

nGS0130 

CO** 

TIGS0131 

CO*« 

DATA  IS  X  DATA  STORE  IT 

nGS0132 

COM 

TIGS0133 

LOXsLNX 

TIGS0134 

DO  160  J*1,N 

TIGS0135 

LNXsLNX+1 

TIGS0136 

160 

X(LNX)sA(J) 

TIGS0137 

GO  TO  150 

TIGS0138 

Ciw« 

TIGS0139 

CO#* 

DATA  HAD  BETTER  BE  LY 

nGS0140 

c*«« 

TIGS0141 

170 

IF(LW.NE.LF)  STOP 

TIGS0142 

C»M* 

TIGS0143 
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IF  DATA  HAS  NOT  BE  INPUT  FOR  X  DATA  USE  LAST  VALUES 

TIGS0144 

C«M« 

TIGS0145 

IF(LNX.GT.LNY)  GO  TO  190 

TIGS0146 

LL=LOX 

TIGS0147 

DO  180  Jsl ,N 

TIGS0148 

LNXaLNX+1 

TIGS0149 

LL=LL+1 

TIGS0150 

180 

X(LNX)=X(LL) 

TIGS0151 

C«H« 

TIGS0152 

UPDATE  COUNTERS 

TIGS0153 

c««« 

TIGS0154 

190 

KsK+1 

TIGS0155 

NPTSOOsN 

TIGS0156 

NPTSCK+1 )=0 

TIGS0157 

C#»## 

TIGS0158 

c««« 

LOAD  Y  DATA 

TIGS0159 

CM## 

TIGS0160 

DO  200  J=1 , N 

TIGS0161 

LNYsLNY+1 

TIGS0162 

200 

Y(LNY)sA(J) 

TIGS0163 

C»M# 

TIGS0164 

c»### 

GO  BACK  TO  GET  NEXT  GROUP 

TIGS0165 

£««•« 

TIGS0166 

GO  TO  150 

TIGS0167 

Q«M« 

TIGS0168 

c»##« 

PLOT  DATA 

TIGS0169 

C##»* 

TIGS0170 

210 

CALL  TIGPPR(NPLOT,LF, 1,LX, 1,LT,8.X,Y,NPTS,LY, I.XV.LYDP.ITIP, 

TIGS0171 

1  IGRID,LZ,Z(IZ)) 

TIGS0172 

CALL  ANHODE 

TIGS0173 

C«M« 

TIGS0174 

c«««* 

COUNT  NUMBER  OF  Y  VALUES 

TIGS0175 

c###« 

TIGS0176 

NYsO 

TIGS0177 

DO  220  1*1,30 

TIGS0178 

IF(NPTS(I).EQ.O)  GO  TO  230 

TIGS0179 

NYaNY+1 

TIGS0180 

220 

CONTINUE 

TIGS0181 

GO  TO  250 

TIGS0182 

c#### 

TIGS0183 

WRITE  TO  TAPE7  Y  DATA  ETC.... 

TIGS0184 

£»#«• 

TIGS0185 

230 

CALL  TF0RM(1,LY,NY,XVtLYDP,7) 

TIGS0186 

LOCsl 

TIGS0187 

J«0 

TIGS0188 

240 

J«J*1 

TIGS0189 

NP*NPTS(J) 

TTGS0190 

IF(NP.EQ.O)  GO  TO  250 

TIGS0191 

U 
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C***» 

C»»»*  WRITE  TO  TAPE?  X  DATA  ETC... 

C»*»» 

CALL  FORM(LOC,LX,NP,X,LXDP,7) 

C«M* 

C««  WRITE  TO  TAPE7  Y  DATA  ETC... 

C»«»* 

CALL  TFORM(LOC,LF,NP,Y,LFDP,7) 

LOCsLOC+NP 
GO  TO  240 

250  CONTINUE 

WRITE  (7,10)  I END 

C*»»» 

C”*»  IF  NON  CREATION  MODE  THEN  GO  BACK  TO  READ  NEXT  TITLE 

C«»*« 

IF(IC.NE.I)  GO  TO  31 

251  WRITE  (7,10) 

REWIND  7 
END 

ctform 

SUBROUTINE  TFORM(LOC,LAB,N,X,IP,K) 

DIMENSION  X(1),IF0RM(3) 

C»*«  FORMATTING  SUBROUTINE  FOR  TPLOT  FORMAT 

C**M  LOC  IS  THE  LOCAL  ARRAY  POSITION  TO  PRINT  FRCM 

CMM  LAB  IS  THE  4  CHARACTER  LABEL  % 

C»«»  N  IS  THE  NUMBER  TO  PRINT 

C»«»  X  IS  THE  ARRAY  CONTAINING  THE  VALUES 

C»*«»  IP  IS  THE  NUMBER  OF  DECIMAL  PLACES  TO  USE  IN  FORMAT 

IF(IP.LT.O)  IP*0 
IFdP.GT.9)  IP*9 

JOsLOC-1 

NPsN 

IF(NP.GT.7)  NP*7 
IF0RM(1)*10H(A4,I3,3X, 

IF0RM( 2  >*555555554206 3433573 3B»IP 
IF0RM(3)*10H) 

WRITE (K,IFORM)  LAB,N,(X(I+J0),I*1,NP) 

IF0RM(1)*10H(  10X, 

IFCN.GT.7)  WRITE(K,  FORM)  (X(I+JO),  1*8,  N) 

RETURN 

END 

CTABR 

SUBROUTINE  TABR(LAB,N,A,K) 

DIMENSION  AC1) 

READ(K,10)  LAB,N,(A(I),I*1,7) 

10  F0RMAT(A4,I3,3X,7F10.0) 

F(N.GT.7)  READ(K,20)  (A(I),I*8,N) 

20  FQRMAT(10X,7F10.0) 


TIGS0192 

TIGS0193 

TIGS0194 

TIGS0195 

TIGS0196 

TIGS0197 

TIGS0198 

TIGS0199 

TIGS0200 

TIGS0201 

TIGS0202 

TIGS0203 


TIGS0204 

TIGS0205 

TIGS0206 

TFOROOOI 

TF0RC002 

FOR0003 

FOR 0004 
FOR 0005 
FOR 0006 
FOR 0007 
F0R0008 
FOR 0009 
FOR  0010 
F0R0011 
F0R0012 
F0R0013 

F0R0014 
F0R0015 
FOR  0016 
FOR0017 
TFOR0018 
F0R0019 
FOR0020 
F0R0021 
FOR 0022 
TABR0001 
TABR0002 
TABR0003 
TABR0004 
TABR0005 
TABR0006 
TABR0007 


oooo  o  o  ooo 
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30  ISl)B(I)sI+1  TIGP0047 

TIGP0048 

MERGE  HERE  TO  REPLOT  TIGP0049 

TIGP0050 

40  CALL  BIN ITT  TIGP0051 

LCNT=3120  TIGP0052 

IGRID1 * ( 3*IGRID+7 )* . 5 

SUM  UP  NUMBER  OF  POINTS  TIGP0061 

NL=0  TIGP0062 

NPTOTsO  TIGP0063 

DO  60  1*1,30  TIGP0064 

NsNPTA(I)  TIGP0065 

IF(N.EQ.O)  GO  TO  70  TIGP0066 

NLsNL+1  TIGP0067 

60  NPTOTsNPTOT+N  TIGP0068 

SET  STORAGE  LIMIT  TO  NPTOT  FIRST  PASS  TIGP0069 

70  IF(NSTOR.EQ.O)  NSTORaNPTOT  TIGP0070 

IF(NPTOT.GT.O)GO  TO  90  TIGP0071 

NSTORsO 

CALL  MOVABS(0,LCNT)  TIGP0072 

CALL  ANMCDE  TIGP0073 

PRINT  80  TIGP0074 

80  FORMAT(*  NO  DATA  FOUND  TO  PLOT  ..ENTER  COMMAND*)  TIGP0075 

LCNTsLCNT-LDEL  TIGP0076 

I PLOT =0 

GO  TO  200  TIGP0077 


TIGP0078 

TIGP0079 

TIGP0080 

TIGP0081 

TIGP0082 

TIGP0083 

TIGP0084 

TIGP0085 

TIGP0086 

TIGP0087 

TIGP0088 

TIGP0089 

TIGP0090 

TIGP0091 

TIGP0092 

TIGP0093 

TIGP0094 

TIGP0095 

TIGP0096 

TIGP0097 

TIGP0098 

TIGP0099 


SECOND  INDEPENDENT  VARIABLE  TITLE 

90  IF(NCC.LE.O)GO  TO  iKO 
CALL  MOVABS(0,LCNT) 

CALL  ANMCDE 

PRINT  110,(LABVAL(J1),J1s1,NCC) 
CALL  M0VABS(2800 , 2800 ) 

CALL  ANMCDE 
PRINT  100,LZ,ZVAL 
100  FORMAT(A4,*«*,G13.5) 

110  F0RMAT(8A10) 

LCNTsLCNT-LDEL 

KLsO 

KH«55B 

DO  130  J1*1,». 

LCNTsLCNT-LDEL 
CALL  MOVABS(O.LCNT) 

KLsKL+1 
CALL  ANMCDE 

PRINT  120,KH,KL,VLABL(J1 ) 


B-8 


nnn 
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CTIGP 


RETURN 

END 


TEK  INTERACTIVE  GPPR  M  CADDY  FEB  78 


SUBROUTINE  TIGPPR (NPLOT,LABY, N1 , LABX, N2, LABTL, NT  ,X,Y, 

1  NPTA,LABVAL, NCC,VLABL, NDECVIN, ITIP, IGRID,LZ,ZVAL) 
C0»t10N/TKTRNX/ITEKC(60) 

DIMENSION  X(200) ,Y(200) ,LABTL(9),NPTA(30) ,VLABL(30) , 

1  LABX(5),LABY(5),VTEM(8),LABVAL(8),IQUICK(30),ISUB(300) 

DIMENSION  MSGK20)  ,MSG2(20)  ,MSG4(10) ,MSG5(10) ,MSG6(15) ,IAL1M(6,2) 
EQUIVALENCE  (BEG(1),XBEG),(BEG(2),YBEG) 

EQUIVALENCE  (DEL ( 1 ) , CELX) , (DEL (2 ) , DELY) , ( ITAB, LTV(2 ) ) 

EQUIVALENCE  (EN(1 ) ,XEND) ,(EN(2) ,YEND) 

EQUIVALENCE  (IOFF , ITEKC( 30) ) , (TXMIN , ITEKC( 1 ) ) 

C  SET  LINE  SPACING 

COMMON/TEKGPPR/LDEL,LCNT,MAXSR,LTV(17),BI(2),DEL(2),BEG(2),RDX2, 
1RDY2, NLINE, NDRAW(30) ,MCDE(30) 

DATA  MSG1/46,q46t80,111,105,110,1l6,101,114,32, 

1  80,111,115,105,116,105,111,110,101,100/ 

DATA  MSG2/73, HO, 112, 117, 116,32,76, 105, 110, 101, 

1  32,86,97,108,117,101,32,32,32,32/ 

rmi  TLLFGAI  MFISSAGF 

DATA  MSG4/42 ,73,108,108,101,103,97,108,42,32/ 

DATA  MSG5/73, HO, 112, 117, 116,32,88,44,89,32/ 

DATA  MSG6/65, 32, 111, 114, 32, 66, 32, 109, 111, 100, 

1  101,63,32,32,32/ 

DATA  ((IALTMCI, J) ,Is1 ,6) ,Js1 ,2)/65, 102, 116, 101 ,114,32, 

1  66,101,102,111,114,101/ 

DATA  IQUICK/0,0, 1,1,2,3,10,4,0,0, 

1  0 , 0, 0,5, 0, 6, 0, 7 , 8, 0, 

2  0,0, 9, 0,0, 0,0, 0,0,0/ 

Aa1./KIN(1.) 

LDELa50 

IF(NPLQT.GT.O)  GO  TO  20 
DO  10  Ia1,8 
10  LTV(I)aO 

20  IWINaO 
NPLOTaNPLOT+1 
IGRIDal 

DO  21  Ia1,30 

21  MCDE(I)aITIP 
NTLaNT 
NLINE  sO 
NSTORaO 

C  ’  SET  STORAGE  POINTER  TO  INITIAL  SEQUENCE 
DO  30  I«1,299 


TABR0008 

TABR0009 

TIGP0001 

nGP0002 

TIGP0003 

nGP0004 

nGPooos 

TIGP0006 

TIGP0007 

TIGP0008 

TIGP0009 

TIGP0010 

TIGP0011 

TIGP0012 

TIGP0013 

TIGP0014 

TIGP0015 

nGP00l6 

TIGP0017 

nGP00l8 

nGPooi9 

nGP0020 

TIGP0021 

TIGP0022 

TIGP0023 

nGP0024 

nGP0025 

TIGP0026 

TIGP0027 

TIGP0028 

nGP0029 

TIGP0030 

TIGP0031 

TIGP0032 

TIGP0033 

TIGP0034 

TIGP0035 

TIGP0036 

nGP0037 

TIGP0038 


TIGP0042 

TIGP0043 

TIGP0044 

nGP0045 

TIGP0046 
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120  FORMAT(1X,2R1,G13.5> 

130  CONTINUE 
C 

C  PREPARE  TEKTRONIX  Adi  COMMON 

C 

140  CONTINUE 

IPLOTsIPLOT+1 
CALL  CHRSIZ(4) 

C  SET  SCREEN  WINDOW  SIZE 

CALL  SLIMXC 640, 4000) 

CALL  SLIMY( 300 ,2700) 

C  SET  TICK  SIZES 

C  CALL  XTICS(14) 

C  CALL  YTICS(IO) 

IF(IWIN.NE.O)  GO  TO  170 

AXMAX*-1.E99 

AYMAX*-1.E99 

AXMBU+1.E99 

AYMINw1.E99 

C  SET  MIN  AND  MAX  DATA  VALUES 

K*1 

DO  150  1*1, NPTOT 
AXMINsAMIN 1 ( AXMIN ,X(K ) ) 

A YMINsAMIN 1 ( AYMIN , Y(K ) ) 
AXMAXsAMAXI  ( AXMAX,  X(K ) ) 
AYMAXsAMAXI  (AYMAX,  Y(K) ) 

KLASTsK 

C  SET  KLAST  TO  END  STORAGE  VALUE 

150  KsISUB(K) 

IWINsI 

IF( AXMIN. NE. AXMAX)  GO  TO  160 

AXMDUAXMIN-.5 

AXMAX*AXMAX+.5 

160  IF(AYMIN.NE.AYMAX)  GO  TO  170 
ATMIN*AYMIN-.5 
AYMAX*AYMAX+.5 

C  SET  VIRTUAL  WINDOW 

170  CALL  DLIMX(  AXMIN,  AXMAX) 

CALL  DLIMY( AYMIN , AYMAX) 

CALL  XLEN(28) 

CALL  YLEN(28) 

CALL  XFRM(IGRIDI) 

CALL  YFRM(IGRIDI) 

NBASE.IBASEX(O) 

DO  160  Ia1,2 
CALL  LOPTIM(NBASE) 

CALL  WIDTHCNBASE) 

CALL  SPREAD(NBASE) 


TIGP0100 

TIGP0101 

TIGP0102 

TIGP0103 

nGP0104 

TIGP0105 

TIGP0106 
TIGP0107 
TIGP0108 
TIGP0109 
HGP01 10 
TIGP01 1 1 
TIGP01 12 
TIGP0113 
TIGP01 14 
TIGP0115 
TIGP0116 
TIGP01 17 
TIGP0118 
TIGP01 19 
TIGP0120 
TIGP0121 
TIGP0122 
TIGP0123 
TIGP0124 
TIGP0125 
TIGP0126 
TIGP0127 
TIGP0128 
TIGP0129 
TIGP0130 
TIGP0131 
TIGP0132 
TIGP0133 
TIGP0134 
TIGP0135 
TIGP0136 
TIGP0137 
TIGP0138 
TIGP0139 
TIGP0140 
TIGP0141 
TIGP0142 
TIGP0143 
TIGP0144 
TIGP0145 
TIGP0146 


#8 
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CALL  TSET(NBASE) 

180  NBASEsIBASEY(O) 

EN(1)*CCMGET(IBASEX(27)) 

EN(2)*C0MGET(IBASEY(27)) 

BEC( 1 )»CCMGET(IBASEX(26 ) ) 

BEG(2)*C0MGET(IBASEY(26)) 

DELX*(XEND-XBEG)/3360. 

DELY»(YEND-YBEG)/2400. 

C 

C  FIND  VIRTUAL  SPACE  TO  SCREEN  SPACE  SCALING  PARAMETERS 
C 

RDX2=1./(DELX*DELX)  ' 

RDY2s1./(DELY»DELY) 

CALL  SETWIN 
CALL  GRID 

CALL  LABEL(IBASEY(0)) 

CALL  LABEL(IBASEX(0» 

CALL  DRAWIT(NL,NPTA,X,Y,ISUB) 

C 

C  AXIS  LABELS 

C 

CALL  CHRSIZ<3) 

CALL  TTITE(2320, 3000, NIL, UBTL.80,0) 

CALL  TTTTE(2320, 100, N2.LABX, 80,0) 

CALL  TTITE(450, 1500, N1,LABY, 80,1) 

C 

C  MERGE  HERE  FOR  INTERACTIVE  FUNCTIONS  (BELL) 

C 

200  IF(LCNT.LT.220)  GO  TO  530 
CALL  CHRSIZ(4) 

IF(NPTOT.EQ.I)  GO  TO  240 
CALL  GETVAL(ICHAR,XO,YO) 

210  IF(ICHAR.LE.64.0R.ICHAR.GE.95)GO  TO  220 
ICHARsICHAR-64 
ICHECKsIQUICK(ICHAR) 

IF(ICHECK.EO.O)  GO  TO  220 

GO  TO  (300, 400, 440, 200, 460, 500, 540, 560, 590, 455), ICHECK 
220  LCNTaLCNT-LDEL 

CALL  NOTATE (0,LCNT, 10, MSG4) 

GO  TO  200 
C 

C  ADD  POINT  AFTER  OR  BEFORE  SPECIFIED  POINT  (A  OR  B) 

C 

C  CHECK  IF  C  COW  AND  AND  FIRST  POINT. 

C 

230  IF(NPTOT.EQ.O)GO  TO  460 
240  LCNT4.CNT-LDEL 

CALL  NGTATE(0,LCNT,20,MSG1) 


TIGP0147 

TIGP0148 

TIGP0149 

TIGP0150 

TIGP0151 

TIGP0152 

TIGP0153 

TIGP0154 

TIGP0155 

TIGP0156 

TIGP0157 

TIGP0158 

TIGP0159 

TIGP0160 

TIGP0161 

TIGP0162 

TIGP0163 

TIGP0164 

TIGP0165 

TIGP0166 

TIGP0167 

nGP0l68 

TIGP0169 

TIGP0170 

TIGP0171 

TIGP0172 

TIGP0173 

TIGP0174 

TIGP0175 

TIGP0176 

TIGP0177 

TIGP0178 

TIGP0179 

TIGP0180 

TIGP0181 

TIGP0182 

HGP0183 

TIGP0184 

nGPOl85 

TIGP0186 

TIGP0187 

TIGP0188 


TIGP0189 

TIGP0190 

TIGP0191 
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250  CALL  GETVAL(ICHAR,X0,Y0) 

C  CHECK  FOR  NEW  LINE  COMMAND 

IFUCHAR.EQ.86)  GO  TO  580 
C  CHECK  FOR  ADD  AFTER 

260  IFUCHAR.EQ.65)  GO  TO  270 
C  CHECK  FOR  MOVE 

IF(ICHAR.EQ.77)  GO  TO  270 
C  IF  NOT  A  B  OR  M  GO  TO  NEW  COMMAND 

IF(ICHAR.NE.66)  GO  TO  210 
270  CALL  POINTA(XO,YO) 

CALL  MOVEA(XO.YO) 

IF(IOFF.EQ.O)CALL  ANCHO(IS) 

IF(ICHAR.E0.77)  GO  TO  290 
NPTOTsNPTOT+1 

C  INCREMENT  STORAGE  COUNTER 

NSTORsNSTOR+1 
NPTA( ISAVE ) xNPTA  C ISAVE )+1 
C  MOVE  POINTER  OF  CLOSEST  POINT  TO  END 

ISUB( NSTOR )*ISUB( JSAVE ) 

C  CHANGE  CLOSEST  POINTER  TO  ACCESS  LAST  POINT 

ISUB(JSAVE)*NSTOR 
IF(ICHAR.EQ.65)  GO  TO  280 

C  MOVE  OLD  POINT  TO  LAST  POINT  (  INSERT  BEFORE) 

X(NSTOR)*X( JSAVE) 

Y(NSTOR)*Y( JSAVE) 

GO  TO  290 

C  NEW  POINT  ADD  AFTER 

280  IFCKLAST.EQ. JSAVE)  KLASTsNSTOR 
JSAVEaNSTOR 
290  X(JSAVE)*XO 
Y(JSAVE)*YO 
GO  TO  250 

DELETE  POINT  (D) 

300  DSAVE*1.E40 

IF(NPTOT.EQ.O)  GO  TO  200 
IS  *64 
NSUMsI 
K*1 

DO  340  1*1, IL 
NEND*NSUM+NPTA(I)-1 
DO  330  J*NSUM,NEND 
IF(NLINE.EQ.O)  GO  TO  310 
IF(NDRAWd).EQ.O)  GO  TO  320 
310  XDX*X(K)-XO 
YDY*Y(K)-YO 

DIST«XDX*XDX*RDX24-YDY*YDY*RDY2 


TIGP0192 

TIGP0193 

TIGP0194 

TIGP0195 

TIGP0196 

TIGP0197 

TIGP0198 

TIGP0199 

TIGP0200 

TIGP0201 

TIGP0202 

TIGP0203 

TIGP0204 

TIGP0205 

TIGP0206 

TIGP0207 

TIGP0208 

TIGP0209 

TIGP0210 

TIGP0211 

TIGP0212 

TIGP0213 

TIGP0214 

TIGP0215 

TIGP0216 

TIGP0217 

TIGP0218 

TIGP0219 

TIGP0220 

TIGP0221 

TIGP0222 

TIGP0223 

TIGP0224 

TIGP0225 

TIGP0226 

TIGP0227 

TIGP0228 

TIGP0229 

TIGP0230 

TIGP0231 

TIGP0232 

TIGP0233 

TIGP0234 

TIGP0235 

TIGP0236 

TIGP0237 

TIGP0238 
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IF(DIST.GE.DSAVE)GO  TO  320 

TIGP0239 

DSAVEsDIST 

nGP0240 

JSAVEsK 

TIGP0241 

ISAVE=I 

TIGP0242 

320  KLASTsK 

nGP0243 

330  KsISUB(K) 

TIGP0244 

340  NSUMsNEND+1 

TIGP0245 

ISsISAVE+64 

TIGP0246 

350  IF(IS.LE.90)G0  TO  360 

TIGP0247 

ISsIS-90 

TIGP0248 

GO  TO  350 

TIGP0249 

360  CALL  POINTA(X(JSAVE) ,Y( JSAVE)) 

TIGP0250 

IF(IOFF.EQ.O)CALL  ANCHO(IS) 

TIGP0251 

IFUCHAR.NE.4)  GO  TO  230 

TIGP0252 

NPT0T=NPT0T-1 

TIGP0253 

KrJSAVE 

TIGP0254 

IF  DELETED  POINT  IS  LAST  ONE  SKIP  SHIFT 

TIGP0255 

IF (KLAST . EQ . JSAVE )G0  TO  370 

TIGP0256 

GET  POINTER  OF  NEXT  POINT 

TIGP0257 

KsISUB(JSAVE) 

TIGP0258 

TRANSFER  POINTER  OF  NEXT  POINT  TO  DELETED  POINT 

TIGP0259 

ISUB( JSAVE )*ISUB(K ) 

TIGP0260 

MOVE  VALUE  OF  NEXT  POINT  TO  DELETED  POINT 

TIGP0261 

X(JSAVE)sXOC) 

TIGP0262 

Y(JSAVE)sYOC) 

TIGP0263 

370  IFCNPTOT.EQ. 1 )NST0R=1 

TIGP0264 

ZERO  DELETED  POINTER 

TIGP0265 

ISUB(K)sO 

TIGP0266 

NPTA( ISAVE ) sNPTA( ISAVE )-1 

TIGP0267 

IF(NPTA(ISAVE).GT.O)GO  TO  390 

TIGP0268 

NPTA(ISAVE)*0 

TIGP0269 

JsO 

TIGP0270 

DO  380  Is1,NL 

TIGP0271 

IF(I.EO.ISAVE)GO  TO  380 

TIGP0272 

TIGP0273 

NPTACJ)aNPTA(I) 

TIGP0274 

VLABL(J)sVLABLd) 

TIGP0275 

380  CONTINUE 

TIGP0276 

NPTA(NzL)sO 

TIGP0277 

NLsNL-1 

TIGP0278 

390  GO  TO  200 

TIGP0280 

nGP028l 

END  (E) 

TIGP0282 

TIGP0283 

400  CALL  NEhfPAG 

TIGP0284 

L«1 

DO  431  I«2,NPT0T 

K«ISUB(L) 
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IFCI.EQ.K)  GO  TO  431 

J*K 

JLEFT*NPT0T+1-I 

DO  420  KK*1, JLEFT 

IF(J.EQ.I)  GO  TO  430 

JOsJ 

420  JsISUB(JO) 

430  ISUB(JO)=K 

ISUB(L)*I 

ISsISUB(I) 

ISUB(I)sISUB(K) 

ISUB(K)=IS 

XSsX(I) 

Xd)sX(K) 

X(K)=XS 

XSsY(I) 

TIGP0297 

Y(I)sY(K) 

TIGP0298 

Y(K)*XS 

TIGP0299 

431  L=I 

RETURN 

TIGP0304 

C 

TIGP0305 

C  FORMAT  (F) 

TIGP0306. 

C 

TIGP0307 

440  LCNT sLCNT-LDEL 

TIGP0308 

CALL  MOVABSCO.LCNT) 

TIGP0309 

CALL  ANMCDE 

TIGP0310 

IY* (Y0-YBEG)/DELY+300 

0354 

II=(3045-n)/50-*-1 

0355 

IFdl.LT.  1)  11*1 

0356 

IFdl.GT.NL)  IIsNL 

0357 

PRINT  450, MODE (II) 

TIGP0311 

450  FORMAT(*  ITIP  *  «,I2) 

TIGP0312 

CALL  GETIN(1,VTEM) 

TIGP0313 

M0DE(II)*VTEM(1 ) 

TIGP0314 

LCNTaLCNT-LDEL 

C 

C  IF  F  OUTSIDE  OF  AXIS  THE  SET  ALL  CURVE  MODES 


C 

IF(XO.LE.TXMIN)  GO  TO  200 
DO  «51  1*1,30 
451  MGDE(I)*VTEM( 1 ) 

GO  TO  200  ,  TIGP0317 

C 

C  CHANGE  GRID  OPTION 
C 

455  IGRIDs-IGRID 
GO  TO  200 


•>13 


C 


TIGP0318 


oooooo  ooo 
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C  NEW  LINE  CN)  TIGP0319 

C  TIGP0320 

460  NPT0TsNPT0T+1  TIGP0321 

NST0R=NST0R+1  TIGP0322 

IF(NPTOT.NE.I)  ISUB(KLAST)sNSTOR  TIGP0323 

KLASTsNSTOR  TIGP0324 

IF( IPLOT+ITAB. EQ. 0)GO  TO  530 

461  X(NSTOR)sXO  TIGP0325 

Y(NSTOR)sY0  TIGP0326 

NLsNL+1  TIGP0327 

ISsNL+64  TIGP0328 


NO  DATA  THEN  D0[T  SYMBOL  IT 


IF(IPLOT.EQ.O)  GO  TO  490 
470  IF(IS.LE.90)GO  TO  480 
ISsIS-90 
GO  TO  470 

480  CALL  P0INTA(X0,Y0) 

IF(I0FF.EQ.0)CALL  ANCHO(IS) 
490  NPTA(NL)*1 
NL1=NL+1 
NPTA(NL1)»0 
LCNTxLCNT-LDEL 
CALL  N0TATE(0,LCNT,20,MSG2) 
LCNTsLCNT-LDEL 
CALL  M0VABS(0,LCNT) 

CALL  ANMGDE 

CALL  GETIN(1,VLABL(NL)) 

ISAVEsNL 

JSAVEsNSTOR 

IF(IPLOT.EQ.O)  GO  TO  530 
GO  TO  240 

PLOT  (P) 


TIGP0329 

TIGP0330 

TIGP0331 

TIGP0332 

TIGP0333 

TIGP0334 

TIGP0335 

TIGP0336 

7TGP0337 

TIGP0338 

TIGP0339 

TIGP0340 

TIGP0341 

TIGP0342 

TIGP0343 

TIGP0344 

TIGP0345 


TIGP0347 

TIGP0348 

TIGP0349 


CHECK  FOR  TABLET  MCDE,  SKIP  SPECIAL  P  SECTION  IF  TABLET 


500  IF(ITAB.EQ.I)  GO  TO  530 


IF(XO.GT.TXMIN)  GO  TO  530 

TIGP0350 

IF(NLINE.GT.O)  GO  TO  520 

TIGP0351 

DO  510  Is1,NL 

TIGP0352 

510  NDRAW( I )sO 

TIGP0353 

520  H*  (YO-YBEG )  /DELY+300 

TIGP0354 

II«(3045-n)/50*1 

TIGP0355 

IF(II.LT.I)  11*1 

TIGP0356 

IF(XI.GT.NL)  IIsNL 

TIGP0357 

•>14 
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HDRAVKIDsI 
NLINEsI 
GO  TO  200 

530  CALL  NEWPAG 
GO  TO  40 
C 

C  RESTORE  WINDOW  (R) 

C 

540  IF(XO.GT.TXMIN.OR.NLINE.EQ.O)  GO  TO  550 
NLINEsO 
GO  TO  200 

550  IWINrO 
GO  TO  530 
C 

C  SHOW  VALUE  (S) 

C 

560  LCNTsLCNT-LDEL 

CALL  MOVABS(0,LCNT) 

CALL  ANMCDE 
PRINT  570,X0,Y0 

570  FORMAT(*Xs»,G13.5,/,*Ys»,G13.5) 
LCNTsLCNT-LDEL 
GO  TO  200 
C 

C  VALUE  IN  (V) 

C 

580  LCNTsLCNT-LDEL 

CALL  NOTATE ( 0 , LCNT , 10 , MSG5 ) 

LCNTsLCNT-LDEL 

CALL  MOVABS(0 , LCNT ) 

CALL  ANMCDE 
CALL  GETIN(2,VTEM) 

XOsVTEMO) 

Y0sVTEM(2) 

C 

C  CHECK  FOR  N  COMMAND  VALUE  INPUT  SECTION. 

C 

IF(IPLOT.EO.O)  GO  TO  461 

LCNTsLCNT-LDEL 

CALL  NOTATE (0, LCNT, 13, MSG6) 

CALL  TINPUTCICHAR) 

GO  TO  260 
C 

C  WINDOW  (W) 

C 

590  CALL  GETVAL(ICHAT,X1,Y1) 

AXMINsAMINI  (X0,X1) 

AXMAXsAMAXI (X0,X1 ) 


TIGP0358 

TIGP0359 

TIGP0360 

TIGP0361 

TIGP0362 

TIGP0363 

TIGP0364 

TIGP0365 

TIGP0366 

TIGP0367 

TIGP0368 

TIGP0369 

TIGP0370 

TIGP0371 

TIGP0372 

TIGP0373 

TIGP0374 

TIGP0375 

TIGP0376 

TIGP0377 

TIGP0378 

TIGP0379 

TIGP0380 

TIGP0381 

TIGP0382 

TIGP0383 

TIGP0384 

TIGP0385 

TIGP0386 

TIGP0387 

TIGP0388 

TIGP0389 

TIGP0390 

TIGP0391 


TIGP0392 

TIGP0393 

TIGP0394 

TIGP0395 

nGP0396 

TIGP0397 

TIGP0398 

TIGP0399 

TIGP0400 

TIGP0401 
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ATMINsAMIN 1 ( YO , Y1 )  TIGP0402 

AYMAXsAMAXI (YO, Y1 )  TIGP0403 

IWIN=1  TIGP0404 

GO  TO  530  TIGP0405 

END  TIGP0406 

CGETVAL  GETV0001 

SUBROUTINE  GETVAL(ICHAR,XV,YV)  GETV0002 

COWON  /TEKGPPR/DUM  ( 3 ) ,  ICL ,  ITAB ,  ITABS.XS ,  YS ,  DUM2(20 ) ,  NLINE  GETV0003 

C  ICLsO  INITIALIZE  TABLET  GETV0004 

C  ICsO  NOT  IN  CONTINUOUS  MODE  GETV0005 

C  ITABsO  SCREEN  CURSER  GETV0006 

C*««*  GETVOOO? 

C*»*«  GET  VALUE  AND  CHARACTER  FROM  CROSS  HAIRS  OR  TABLET  GETV0008 

C»»*«  GETV0009 

C*«»«  GETVOO 1 0 

C»*»*  CHECK  FOR  TABLE  INPUTS  GETVOO 11 

C*«*«  GETVOO 12 

10  IFCITAB.EQ. 1)G0  TO  20  GETV0013 

CALL  VCURSR(ICHAR,XV, YV)  GETV0014 


C*«*»  GETVOO 15 

C»#»»  CHECK  TO  SEE  IF  SCREEN  COMMAND  WAS  TO  ACTIVATE  TABLET  GETVOO 16 

C**«*  GETVOO 17 

IF(ICHAR.NE.84)GO  TO  30  GETV0018 

ITABsl  GETVOO 19 

ICLsITABS  GETV0020 

C**»*  GETV0021 

C*«*»  SET  TABLET  LAST  CHARACTER  (ALSO  USED  AS  A  FUG  FOR  INITIALIZATION  GETV0022 

C«*«*  GETV0023 

20  ICHARsICL  GETV0024 

CALL  TABVU(ICHAR,XV,YV)  GETV0025 

C**«  GETV0026 

C***»  SAVE  LAST  TABLET  CHARACTER  COMMAND  GETV0027 

C*«*  GETV0028 

ICLsICHAR  GETV0029 

NLINE =0  GETV0030 


C 

C  SET  FUG  TO  PLOT  ALL  LINES  IN  TABLET  MODE 
C 


c*»*»  GETV0031 

C***«  CHECK  FOR  TABLET  HALT  CCWAND  GETV0032 

C*‘*»  GETV0033 

IF(ICL.NE.72)G0  TO  30  GETV0034 

C*«*»  GETV0035 

C»M«  TUK»>  7FF  TABLET  AND  SAVE  LAST  COMMAND  GETV0036 

C*M*  GETV0037 

ITABsO  GETV0038 

ITABSalCL  GETV0039 

RETURN  GETV0040 


Ih16 


N  ADC-83030-60 


30  IF ( ICHAR . EQ . 69 ) ITABSsO 
RETURN 
END 

CTABVU 


C 


C 


SUBROUTINE  TABVU( ICHAR, XV, YV) 

COMMON/TEKGPPR/LDEL ,LCNT,MAXSR ,LTV(5 ) 

1  ,LS,MX1 ,MY1 ,MX2,MY2,XB,YB,FACX,FACY,ANG,MXB,MYB 
DIMENSION  MSGK54)  ,MSG2(43)  ,MSG3(43) ,MSG4(  18) ,IC0NV(2, 10) , 
1  IRETNC2, 10) ,XTEM(2) 

DATA  ((ICONV(I ,J) , Jsl , 10) ,1=1 ,2)/65,66,67,68,69,71 ,72, 

1  105,78,80,82,83,86,87, 

1  32  ,32  ,32,32,32,32/ 

DATA  (dRETNd, J) ,J*1 , 10) ,Is1 ,2)/  0,  0,  0,  0,  1,  1,  1, 

1  1,  0,  1,  1,  0,  1,  0, 

1  1,  1,  1,  1,  1,  1/ 

DATA  MSG 1/  83,113,117,  97,114,101,  32,109,101,110, 

1  117,  32,119,105,116,104,  32,116,  97,  98, 

1  108,101,116,  32,  97,110,100,  32,116,111, 

1  117,  99,104,  32,117,112,112,101,114,  32, 

1  108,101,102,116,  32,109,101,110,117,  32, 

1  100,111,116,  46/ 

DATA  MSG2/  84,111,117  ,  99,104,.  32  ,  97,120,105,115, 

1  32,111,114,105,103,105,110,  32,  97,110, 

1  100,  32,101,110,116,101,114,  32,118,  97, 

1  108,117,101,115,  32,  88,  32,  97,110,100, 

1  32,  89,  46/ 

DATA  MSG3/  84,111,117,  99,104,  32,  32,  32,  97,120, 

1  105,115,  32,  97,116,  32,109,  97,120,  32, 

1  108,101,110,103,116,104,  32,  97,110,100, 

1  32,101,110,116,101,114,  32,118,  97,108, 

1  117,101,  46/ 

DATA  MSG4/  76,  97,115,116,  32,  99,111,109,109,  97, 

1  110,100,  32,119,  97,115,  32,  32/ 

IF( ICHAR. NE.O)GO  TO  30 

TABLET  HAS  NOT  BEEN  SET  CHECK  IT 
LSslOO 


CALL  TABINT( 1,0,0) 

CALL  NEW  PAG 
LCNT*3120-LDEL 

GET  MENU  POSITION 
CALL  N0TATE(0,LCNT,54,MSG1) 
CALL  BELL 

CALL  0NEPNTCMX1  ,MY1 ) 
MX2aMX1+1000 
MY2*MY 1-200 
GO  TO  20 
10  LCNTs3120 
CALL  NENPAG 


GETV0041 
GETV0042 
GETV0043 
TABV0001 
TABV0002 
TABV0003 
TABV0004 
TABV0005 
TABV0006 
TABV0007 
TABV0008 
TABV0009 
TABV0010 
TABV001 1 
TABV0012 
TABV0013 
TABV0014 
TABV0015 
TABV0016 
TABV0017 
TABV0018 
TABV0019 
TABV0Q20 
TABV0021 
TABV0022 
TABV0023 
TABV0024 
TABV0025 
TABV0026 
TABV0027 
TABV0028 
TABV0029 
TABV0030 
TABV0031 
TABV0032 
TABV0033 
TABV0034 
TABV0035 
TABV0036 
TABV0037 
TABV0038 
TABV0039 
TABV0040 
TABV0041 
TABV0042 
TABV0043 
TABV0044 
TABV0045 
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20  LCNT*LCNT-LDEL 

C  GET  COORDINATE  INTERSECTION 

CALL  NOTATE ( 0 , LCNT , 43 ,MSG2) 

CALL  BELL 

CALL  ONEPNT(MX8,MYB> 

LCNTaLCNT-LDEL 
CALL  MOVABS(0,LCNT> 

CALL  ANMCDE 
CALL  GETIN(2,XTEM) 

XBsXTEMC 1 ) 

YB=XTEM(2) 

LCNTsLCNT-LDEL 

MSG3(7)x88 

C  GET  X  AXIS  POSITION  MAX 

CALL  N0TATE(0,LCNT,43,MSG3) 

CALL  BELL 

CALL  ONEPNT(MXM,NXM) 

LCNTaLCNT-LDEL 
CALL  MOVABS(O.LCNT) 

CALL  AIWCDE 

C  GET  VALUE  AT  POSITION 

CALL  GETIN(I.XM) 

DXaMXM-MXB 

DYaNXM-MTB 

C  COMPUTE  ANGLE  CORRECTION 

ANG*ATAN2(DYtDX) 

LCNTaLCNT-LDEL 

MSG3(7)a89 

C  GET  Y  AXIS  POSniON  MAX 

CALL  NOTATE(0,UCNT,43,MSG3) 

CALL  BELL 

CALL  ONEPNT(MYM.NYM) 

LCNTaLCNT-LDEL 
CALL  MOVABS(O.LCNT) 

CALL  ANMCDE 

C  GET  VALUE  AT  POSITION 

CALL  GETINO.YM) 

DYaNYM-MYB 
COSAxCOS ( ANG ) 

C  SET  UP  COMMON  FACTORS  FOR  ANGLE  CORRECTIONS 

FACXa(XM-XB)»COSA/DX 
FACYa(YM-YB)#COSA/DY 
INITal 
XVaXM 
YVaYM 
ICHAR-87 

C  RETURN  PLOT  COMMAND 

RETURN 


TABV0046 

TABV0047 

TABV0048 

TABV0049 

TABV0050 

TABV0051 

TABV0052 

TABV0053 

TABV0054 

TABV0055 

TABV0056  4 

TABV0057 

TABV0058 

TABV0059 

TABV0060 

TABV0061 

TABV0062 

TABV0063 

TABV0064 

TABV0065 

TABV0066 

TABV0067 

TABV0068 

TABV0069 

TABV0070 

TABV0071 

TABV0072 

TABV0073 

TABV0074 

TABV0075 

TABV0076 

TABV0077 

TABV0078 

TABV0079 

TABV0080 

TABV0081 

TABV0082 

TABV0083 

TABV0084 

TABV0085  j 

TABV0086  ‘ 

TABV0087 

TABI0088 

TABV0089 

TABV0090 

TABV0091 

TABV0092 

TABV0093 


\ 


o  o  o  o 
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C  CHECK  FOR  TABLET  INITALIZED 

30  IFdNIT.NE.DGO  TO  40 
ICHAR*87 
XVsXB 
YVsYB 
INITsO 
RETURN 
40  CALL  BELL 

CALL  ONEPNTdX.IY) 

C  CHECK  TO  SEE  IF  POINT  SENT  IS  A  MENU  COMMAND 

IFdX.GT.MX2.0R.IX.LT.MX1)GO  TO  50 
IF(IY.GT.MY1.0R.IY.LT.MY2)GO  TO  50 
IC=(IX-MX1 )/LS+1 
IR=(MY1-IY)/LS+1 

C  CONVERT  ROW  AND  COLUMN  POSITION  TO  COMMAND  CHARACTER 

ICHARsICONVdR,  IC) 

IF(ICHAR.EQ.32)  RETURN 

MSG4(l8)sICHAR 

LCNTsLCNT-LDEL 

C  LAST  MESSAGE  COMMAND 

CALL  NOTATE (0,LCNT,1 8, MSG4) 

IFdCHAR.EQ.  105  )G0  TO  10 
IFdRETNdR,  10)  *EQ.1)  RETURN 
GO  TO  40 

C  CONVERT  TABLET  UNITS  TO  VIRTUAL  UNITS  WITH  ANGLE  CORRECTION 

50  DXsIX-MXB 
DY*IY-MYB 

IF(DX.EQ.0.)DXs1.E-20 
RsSQRT  (DX*DX+DY*DY) 

ANGR*ATAN2(DY , DX)-ANG 
XVsR*FACX*COS(ANGR )+XB 
YVsR*FACY*SIN ( ANGR )+YB 
RETURN 
END 

CDRAwrr 

SUBROUTINE  DRAWIT(NL,NPTA,X,Y,ISUB) 

COWON /TKTRNX/ITEKC(  60 ) 

C0M0N/TEKGPPR/DUM(20),EN(2),EEL(2)  ,BEG(2) ,RDX2»RDY2,NLINE, 

1  NDRAW(30),M0DE(30) 

DIMENSION  QSY(306),QSX(306),NPTA(1),X(1),Y(1),ISUB(1) 
EQUIVALENCE  (I0FF,ITEKC(30)) 


0  SYMBOLS  1  LINE  2  SPLINE  WRT  X  3  SPLINE  WRT  Y  4  ARC  FIT  5  CLOSED 

Um 64 
K*1 

NSUM*1 


TABV0094 
TABV0095 
TABV0096 
TABV0097 
TABV0098 
TABV0099 
TABV0100 
TABV0101 
TABV0102 
TABV0103 
TABV0104 
TABV0105 
TABV0106 
TABV0107 
TABV0108 
TABV0109 
TABV01 10 
TABV01 1 1 
TABV0112 
TABV0113 
TABV0114 
TABV0115 
TABV0116 
TABV01 17 
TABV0118 
TABV0119 
TABV0120 
TABV0121 
TABV0122 
TABV0123 
TABV0124 
TABV0125 
TABV0126 
TABV0127 
DRAW0001 
DRAW0002 
DRAW0003 
DRAW0004 
DRAW0005 
DRAW0006 
DRAW0007 
DRAW0009 
DRAW0010 

DRAW0012 

DRAW0013 

DRAW0014 

DRAW0015 


B-i» 
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NCsO 

DO  290  Isl.NL 
ISYMsMCDE(I) 

ITYPsIABS ( ISYM ) 

IFdTYP.GT.1)  CO  TO  40 

NENDsNSUM+NPTA(I)-1 

ITsIT+1 

IF(IT.CT.90)ITs65 
DO  20  JsNSUM.NEND 
IF(NLINE.EQ.O)  GO  TO  10 
IF(NDRAWd)  .EQ.O)  GO  TO  20 
10  XPsX(K) 

YPsY(K) 

IF(J.EQ.NSUM)  CALL  MOVEA(XP.YP) 
IF(ITYP.EQ.I)  CALL  DRAWA(XP.YP) 
IF(ISYM.LT.O)  GO  TO  20 
CALL  MOVEA(XP,YP) 

IF(IOFF.EQ.O)  CALL  ANCHO(IT) 

CALL  MOVEA(XP.YP) 

20  KsISUB(K) 

30  NSIMsNEND+1 
GO  TO  290 
C 

C  PLOT  WITH  SPLINE 
C 

40  NSsNC 

NPTsRPTA(I) 

NCsNC+NPT 

ITsIT+1 

IF(IT.GT.90)ITs65 
IF(NLINE.EQ.O)  GO  TO  60 
IF(NDRAWd).NE.O)  GO  TO  60 
C  LOCATE  POINTER  OT  NEXT  LINE 

DO  50  L*1,NPT 
50  KsISUB(K) 

GO  TO  290 
60  JFXTs2 
YOsY(K) 

KI.ISUB(K) 

IF(ITYP.GT.2)  GO  TO  80 
XOsX(K) 

C  CHECK  X  DATA  FOR  ASCENDING  ORDER 

DO  70  L«2,NPT 
X1sX(K1) 

IF(XI.LE.XO)  GO  TO  110 
K1«XSU*(K1) 

70  XOaXI 
GO  TO  210 


DRAW0016 


DRAW0008 

DRAW0017 

DRAW001 8 

DRAW0019 

DRAW0020 

DRAW0021 

DRAW0022  4 

DRAW0023 

DRAW0024 

DRAW0025 

DRAW0026 

DRAW0027 

DRAW0028 

DRAW0029 

DRAVOO 

DRAW0030 

DRAW0031 

DRAW0033 

DRAW0034 

DRAW0035 

DRAW0036 

DRAW0042 

DRAW0043 

DRAW0044 

DRAW0045 

DRAW0046 

DRAW0047 

DRAW0048 

DRAW0049 

DRAW0050 

DRAW0051 

DRAW0052 

DRAW0053 

DRAW0054 

DRAW0055 

DRAW0056 

DRAW0057  < 

DRAH0058 

DRAW0059 

DRAW0060 

DSAH0061 

DRAM0062 

DRAW0063 

DRAW0064 
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80  IF(ITYP.GT.3>  GO  TO  100 

DRAWC055 

C  CHECK  Y  DATA  FOR  ASCENDING  ORDER 

DRAWCC66 

DO  90  L*2,NPT 

DRAWC067 

YlaY(KI) 

DRAWCC68 

IF(YI.LE.YO)  GO  TO  110 

DRAW0069 

KlsISUB(KI) 

DRAW0070 

90  YOsYl 

DRAW007 1 

GO  TO  210 

DRAW0072 

100  JFITsITYP-2 

DRAW0073 

110  NCIRsO 

DRAW0074 

IF( JFIT . EQ . 3 )  NC IR  a-NPT/2-1 

DRAW0075 

MPTsNPT-2»NCIR 

DRAW0076 

QSY(  1 )sMPT 

DRAWC077 

QSX(1 )*MPT 

DRAW0078 

SsO. 

DRAW0079 

KAaNS 

DRAW0080 

KOaKA 

DRAWC081 

KEaKO+NPT 

DRAW0082 

KSAVEsK 

DRAW0083 

KAaKA+NCIR 

DRAW0084 

DO  160  Mai, MPT 

DRAW0085 

M1sM+1 

DRAW0086 

KAaKA+1 

DRAW0087 

IF(KA.GT.KD)  GO  TO  130 

DRAW0088 

NDOsNPT+NCIR 

DRAW0089 

DO  120  IIa1,NDO 

DRAW0090 

120  KalSUB(K) 

DRAW0091 

KAaKA+NPT 

DRAW0092 

GO  TO  140 

DRAW0093 

130  IF(KA.NE.(KE+1 ))GO  TO  140 

DRAW0094 

JSAVEsK 

DRAW0095 

KaKSAVE 

DRAW0C96 

KAaKA-NPT 

DRAW0097 

140  CONTINUE 

DRAW0098 

LaMI+MFT 

DRAW0099 

YYYPaY(K) 

DRAW0100 

XXXPaX(K) 

DRAW0101 

KalSUB(K) 

DRAW0102 

IF(M.EQ.D  GO  TO  150 

DRAW0103 

DSaSORT ( RDX2* ( XXXP-XO ) *»2+RDY  2*  ( YYYP-YO  > »»2 ) 

DRAW0104 

SaMS 

DRAW0105 

150  XOaXXXP 

DRAW0106 

YOaYYYP 

DRAW0107 

QSX(M1)aS 

DRAV0108 

QSY(M1)sS 

DRAW0109 

QSX(L)aXXXP 

DRAW0110 

160  OSY(L)aYYYP 

DRAW0111 

KAaKO+NPT 

DRAW0112 
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QSX(L*1)«0. 

OSYCUDsO. 

QSX(L+2)*1. 

QSY(L*2)»1. 

XO*QSX  C  MPT+2-NC IR ) 

YOsQSYCMPT*2-MCIR) 

CALL  MOVEA(XO,YO) 

ZF(IOFF.EQ.O)  CALL  ANCHO(IT) 

CALL  MOVEA(XO,YO) 

SCKsQSXC  3-HC IR ) 

S«QSX<2-NCIR) 

IF(NPT.LE.I)  GO  ID  290 
DC =40. 

DS=40. 

NCKs2 
170  S*S*DS 

XPsSFLNQKl  ,Q5X,S) 

YPaSFLNQ1(1,QSY,S) 

DCKsSQRT  ( RDX2*(X0-XP )**2+RDY2*( YO-YP )**2 ) 

DS*  DC*DS/DCK 
180  IF(S.LT.SCK)  GO  TO  200 
NSlMaMFT+1-tNCK-NCIR 
XS*QSX(H$YM) 

YSaQSY(NSYM) 

CALL  DRAMA(XS,YS) 

IF(ISYM.LE.O.AIID.NCK.NE.NFT)  GO  TO  190 
CALL  MOVEA(XS,YS) 

IF(IOFF.EO.O)  CALL  ANCHO(ZT) 

CALL  M0VEA(X5,YS) 

190  NCKsNCK+1 

SCKaQSX(NCK+1-NCIR) 

IF(  MCK.  L£ .  (ffT+JFIT-2 )  GO  TO  180 
IF(JFIT.CQ.3)  KsJSAVE 
GO  TO  290 

200  CALL  DRAWA(XP.YP) 

XDsXF 
YOmYP 
GO  TO  170 
210  Q8X(1 )«MPT 
DO  240  Msl.MFT 
MM 

umm 

LdMffT 

XFaXOO 

YP*Y(E) 

IF(M.lC.1.AlB).M.lC.lffT. AMD. QTM. 12.0)  GO  TO  220 
CALL  MOVCA(XF.TF) 

TFdOFF.BQ.O)  CALL  AMCHOOT) 
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220  IF<ITYP.NE.3)  GO  TO  230 
QSXOOsYP 
QSX(L)sXP 
GO  TO  240 
230  QSX(N)*XP 
QSX(L)xYP 
240  KsISUB(K) 

QSX(U1)aO. 

QSX(L+2)s1. 

XEN=QSX(NPT+1 ) 

XIN*QSX(2) 

IFITPsITYP-1 

BCKsBEG(IFITP) 

ECKsEN(IFITP) 

DELT  sDEL ( IFITP )*30 . 

IF(XIN.LT.BCK)  XINsBCK 
IF(XEN.GT.ECK)  XENsECK 
KILLrO 

DO  280  Ms 1,200 
XI=XIN+DELT*(M-1 ) 

IF(XI.LT.XEH)  GO  TO  250 

KILL*1 

XIsXEN 

250  YIsSH.N0K1,QSX,XI) 

IFCITYP.EQ.3)  GO  TO  260 

xp=n 

YPsYI 
GO  TO  270 
260  XP=YI 
YPsXI 

270  IF(M.EQ.I)  CALL  MOVEA(XP.YP) 

CALL  DRAWACXP, YP) 

IF(NPT.£Q. 1)  GO  TO  290 
IF(KILL.EQ.I)  GO  TO  290 
280  CONTINUE 
290  CONTINUE 
300  RETURN 
END 

CSFLH01 

FUNCTION  SPLNQ1  (NLOC.X.XINDEP) 

C«M  LOCAL  CUBIC  FIT  8/9/77  M.J.  CADDY 
DIMENSION  XO),QM(3) 

EQUIVALENCE  (QM(1),T3),(QM<2>,Q2>,<QM<3)  ,Q3) 

XINsXIMDEP 

NS«NLOC 

NOm*X<NS) 

ID*NS+NOPTS 

NSPlsKS+1 
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NSP2*NS+2 

IF(NOPTS.LE.I)  GO  TO  130 
IF(N0PTS.GT.2)  GO  TO  10 
NsID+NOPTS 

T3s(XCN)-X(M-1))/(XCID)-X(ID-D) 

MsID 
HTRAP*1 
GO  TO  280 

10  NS2*N0PTS»2+NSP1 
L*X(NS2) 

LSC*NS2VI 

IQMODEsX(LSC) 

KsL+NS 

NL=NSP1 

NHsID 

NTRAPs-1 

C*«*  BINARY  SEARCH  FOR  INTERVAL 
IF(XIN-X(ID))30, 140,20 
20  NTRAPsO 
GO  TO  150 

30  IF(XIN-X(NSP1))40,40,60 
40  NTRAPsI 
50  KsNSP2 
GO  TO  160 
60  IF(L >120,120,70 
70  IF(XIN-X 00)80, 100, 100 
80  NHaK 
K*K-1 

90  IF(XIN-X(K))110, 100, 100 
100  NL«K 

GO  TO  120 
110  NH*K 

120  K«(NH-NL)/2«NL 
IF(K-NL>90, 140,90 
130  Y0UT*X(NSP2) 

GO  TO  .320 
140  LFAST*L-fffl+NS 
X(NS2)*NH-NS 
150  KsNH 
160  MsK 

N*M+NOFTS 

Y3«X(H-1> 

X3»X04-1 ) 

C**»  CHECK  FOR  FAST  MODE  AID  UtfRAFObATTOR 
IFOfTRAP.CE.O)  GO  TO  180 
IF(IQMODC<L.EQ.O.GR.LFAST.RE.O)  00  TO  180 
DO  170  1*1,3 
170  QMtlfcXOSC*!) 
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SFLN0044 
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GO  TO  310 
180  Y4sX(N) 

X4*X(M) 

A3=X4-X3 
S3s(Y4-Y3)/A3 
IF(M.EQ.NSP2)  GO  TO  190 
X2=X(M-2) 

Y2*X(N-2) 

S2*(Y3-Y2)/(X3-X2) 

IF(M.EQ.ID)  GO  TO  200 
190  X5=X(M+1) 

Y5*X(N+1) 

S4*(Y5-Y4)/(X5-X4) 

IF(M.EQ.NSP2)  S2sS3+S3-S4 
GO  TO  210 
200  S4*S3+S3-S2 

210  IF(M.LE.(HSP2+1))  GO  TO  220 
S 1 s(Y2-X(N-3 ) ) /(X2-X(M-3 ) ) 

GO  TO  230 
220  S1*S24S2-S3 

230  IF(M.GE.(ID-D)  GO  TO  240 
S5*(X(N+2)-Y5)/(X(M+2)-X5) 

GO  TO  250 
240  S5*S4*S4-S3 
250  W2*ABS(S4-S3) 

W3*ABS(S2-S1) 

SW*W2*W3 

IF(SW.NE.O.O)  GO  TO  260 

W2»0.5 

W3-0.5 

Stfsl.0 

260  T3*(W2^24W3«S3)/SH 
W3«ABS(S5-S4) 

W4mABS(S3-S2) 

SHdf3«W4 

IF(SW.NE.O.O)  GO  TO  270 

W3«0.S 

VWaO.5 

SV*1.0 

270  T4«<H3*S3^4«S4)/» 

XPCMStf.LT.O)  GO  TO  290 
XFOflMP.EQ.O)  T34T4 
280  HMMHtftP 

C***  FAST  EXIT  FOR  2  P0HIT3  AMD  LWEAA  EXTPAPOLATIOH 
YOUr*XCXX4NOPTS)4>(XHI-X(ZX))*T3 
GO  TO  320 

290  Q2»(2.0*(S3-T3)*33-T4)/A3 
Q3»(-S3-S3»T3*T4)/(A3*A3) 
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IF(IQMCDE*LFAST.EQ.O)  GO  TO  310 
DO  300  1*1,3 
300  X(LSC+I)sQM(I) 

310  DX*XIN-X3 

YOin,*Y3+DX»(T3+DX»(Q2+DX»Q3 ) ) 

320  SFLNQIsYOUT 
RETURN 
END 

CTTITE 

SUBROUTINE  TTITE(IX,IY,NTL,LAB1L,NM,IA) 
DIMENSION  LABTL(1),IP(136) 

NTL  sNUMBER  OF  10  CHARACTER  WORDS 
NM  MAX  CHARACTERS  PER  LINE 
IA  SWITCH, IA*0  HORIZ, IA*1  VERTICAL 
IX  SCREEN  CENTER 
IY  SCREEN  CENTER 
IF(NTL.LE.O)  RETURN 
NC*10*NTL 

C  GET  CHARACTER  SIZE 

CALL  CSIZE( IHORZ , IVERT) 

C  CONVERT  LABEL  TO  ADE 

CALL  KAM2AS(NC,LABTL,IP) 

1X1 *IX 
IYIsIY 
ITL1*0 
NBLKsO 
DO  70  Ksl.NC 

C  CHECK  FOR  LEADING  BLANKS 

IF(IP(K).NE.32)  GO  TO  10 
IF(ITLI.EQ.O)  GO  TO  70 
NBLK*NBLK+1 

C  CHECK  FOR  3  BUNKS  TO  TERMINATE  LINE 

IF(NBLK.NE.3)  GO  TO  20 
ITL1*ITL1-2 
GO  TO  50 
10  NBLKsO 

C  CHECK  FOR  MAX  LINE  LENGTH  EXCEEDED 

20  miTL1.LT.  NO  GO  TO  30 
IF(IP(K).EQ.32)  GO  TO  50 
30  ITL1*ITLW1 
IP(ITL1)*IP(K) 

IF(K.LT.NC)  GO  TO  70 
40  ITLIbITLI-NBUC 

C  CHECK  FOR  VERTICAL  OR  HORIZ  LABEL 

50  miA.IK.O)  GO  TO  <0 
IX1sIX-XH0RZ*ITL1*.5 
call  norATEmi,ni,nLi,iP) 

IY1*IY1-IVERT»1.1 
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TTIT0036 
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TTTF0039 

TTIT0O4O 


NADC- 83030-60 


ITLlsO 
GO  TO  70 

60  IY1sIY+IVERT«ITL1».5 
CALL  M0VABS(IX1,IY1) 
CALL  VLABELCITL1,IP) 
IX1sIXUIH0RZ»1 . 1 
ITLlsO 
70  CONTINUE 
END 

CGETIN 

SUBROUTINE  GETIN(NIN,Y) 


C  MICHAEL  CADDY  3/19/78 

DIMENSION  YC1),IC(80) 

C  FREE  FORM  INPUT  CODE 

NWsO 
10  JsO 

READ  20, IC 

C  CHECK  FOR  END  OF  FILE 

IFCEOFC5).EQ.O)GO  TO  30 
NINsNW 
RETURN 

20  F0RMAT(80R1> 

30  JCsO 
JDsO 
JSsI 
NCsO 
XsO. 

40  JsJ+1 

C  ONLY  ONE  CARD  PER  INPUT  READ 

C  MODIFIED  TO  READ  MORE  THAN  ONE  CARD  4/26/78  MJC 

IFCJ.GT.80)  GO  TO  10 
I*IC(J) 

C  CHECK  FOR  VALID  NUMERIC  FIELD 

IFCI.GT.32B.AND.I.LT.45B)  GO  TO  110 
C  IGNORE  LEAD  +  SIGN 

IFCI.EQ.45B>  GO  TO  40 
C  SET  FUG  FOR  NEGATIVE  VALUE 

IFCI.NE.46B)  GO  TO  50 
JS—1 
GO  TO  40 

C  CHECK  FOR  DECIMAL 

50  IFCI.ME.57B)  GO  TO  60 
IFCJC.EQ.-1)  GO  TO  120 

C  IF  THIS  IS  SECOND  DECIMAL  BLEW  OFF  TO  ERROR  CODE 

JCs-1 

GO  TO  40 
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C  CHARACTER  IS  BLANK  TREAT  AS  COMMA  IF  NOT  LEADING 

60  IF(I.EQ.55B)GO  TO  80 
IF{I.EQ.56B)GO  TO  70 
GO  TO  120 

70  IF(NC.GT.O)GO  TO  90 
NWsNW+1 

IF(NW.GT.NIN)  RETURN 
GO  TO  40 

C  TWO  COMAS  ..IGNORE  THIS  DATA  FIELD  AND  GO  ON  TO  NEXT 

80  IF(NC.EQ.O)  GO  TO  40 
C  SHIFT  DECIMAL  TO  NUMBER 

90  X=JS*X*10.**JD 
NWsNW+1 
¥(NW)sX 

IF(NW.GE.NIN)  RETURN 
GO  TO  30 
110  JDsJD+JC 
NCsNC+1 

C  ADD  DIGIT  TO  NUMBER  ,, CAREFULLY 

X*X»10+(I-33B) 

GO  TO  40 

C  ERROR  CODE 

120  DO  130  Ks1,80 

130  IC(K)*55B 
IC(J)*47B 
PRINT  140  ,IC 
140  FORMAT(2X,80R1) 

PRINT  150 

150  FORMATS  BAD  FIELD,  RE-ENTER  DATA*) 

GO  TO  10 
END 
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